use File::Copy qw(move);
move $source, $destination or die "Cannot move $source to $destination: $!";