Select Code to Download

=head1 NAME

...
for my $file (@ARGV) {
    copy($file, "backup/${file}_$date") or die "Copy failed: $!";
}