use strict;
use warnings;
my $a = shift;
my @a = glob($a);
print @a;