use warnings;
use strict;

my $input = shift;

my @files;
if ($input =~ /^\./) {
    @files = glob "*$input";
}
else {
    @files = $input;
}

for (@files) {
    print "$_\n";
}
[download]