use Env qw( $HOME );
use File::Path qw( mkpath );
use File::Basename qw( basename dirname fileparse );
use File::Copy qw( move copy );

my $some_file = shift;
my $basename = basename( $some_file );
my $backup_location = "$HOME/backups";
mkpath( $backup_location ) unless -d $backup_location;

my $new_file = "$backup_location/$basename.bak";

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