use File::Spec;

my $target_dir = 'TEST';
my $source = 'foo.txt';

my $target = File::Spec->catfile($target_dir, $source);
rename $source => $target
    or die "Couldn't rename '$source' to '$target': $!";