Select Code to Download

my $filename = shift @ARGV;
unless ($filename) {
...
        # copy file to directory
    }
}

if (!@ARGV) {
    print "Enter file name(s) to be backed up, separated by spaces:\n"
+;
...
else {
    $filename = shift(@ARGV);
}