Select Code to Download

my($first) = (sort @files)[0];
my($last) = (sort @files)[-1];

my $file = "/some/file/name.txt";
my $filename;
...
    die "Weird file name format: '$filename'";
};
print "Got $filename";