#!/usr/bin/perl

my $dir = "/home/valami";
my @files = glob ( "$dir/*.txt" );
print "@files\n";