my $filename = shift @ARGV;
unless ($filename) {
    print "Enter file name(s) to be backed up:\n";
    $filename = <STDIN>;
    chomp $filename;
}

if ( -e $filename ) {
    if ( -d "Backups") {
        # copy file to directory
    }
    else {
        mkdir "Backups";
        # copy file to directory
    }
}

##</code><code>##

if (!@ARGV) {
    print "Enter file name(s) to be backed up, separated by spaces:\n";
    $filename = <STDIN>;
    chomp $filename;
    my @filenames = split(/\ /, $filename);
    $filename = shift(@filenames);
}
else {
    $filename = shift(@ARGV);
}