use File::Basename        qw( basename );
use File::Spec::Functions qw( catfile );

chomp(my $filenameful = <STDIN>);
my $filename  = basename($filenameful);
my $backupdir = 'backup_files';
my $back      = $filename . ".bak";
my $backful   = catfile($backupdir, $back);