### perl code 

my $dir   = '/home/user/test';
my @files = eval { glob("$dir/*.txt") };

print "$@" if $@;           # here is no runtime error
print Dumper(\@files);      # shows an empty list