use File::Basename;
my( $old, $new ) = @ARGV;
if ( -d $new ) {
    $new .= "/" . basename( $old );
}