#! /usr/bin/perl -w

$, = ', ';
print $ARGV[0] =~ tr/*?// ? glob ($ARGV[0]) : ((-e $ARGV[0]) ? $ARGV[0] : '<No File>');

##</code><code>##

#! /usr/bin/perl -w

$, = ', ';
my @files = glob('*.txt');
print @files if -e $files[0];