use File::Basename; 
use File::Copy; 
use Carp;

open my $a, 'myfile.txt';
my ($f,$b,$c) = $fileparse("/home/me/my_dir/my_other_file.txt");
copy($a,$b) or croak; # Oops!