Select Code to Download

use Env qw( $HOME );
use File::Path qw( mkpath );
...
my $new_file = "$backup_location/$basename.bak";

copy("$some_file", "$new_file") or die "got problems: $!";