Select Code to Download

#! /usr/bin/perl -w

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

#! /usr/bin/perl -w

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