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);
}