#!perl

use strict;
use warnings;

$| = 1;

my $INPUT = shift || usage();
my $PATH  = shift || './/';

-d $PATH or die 'check your <directory>';
open my $fh, '<', $INPUT or die 'check your <input>';

while(<$fh>) {
	chomp;
	
	my($old, $new) = split /\t|;/o;
	print "$old => $new: ";
	my $res = rename $PATH . $old, $PATH . $new;
	print $res ? 'DONE' : "FAILED [$!]", "\n"
}

close $fh;

sub usage {
	exit print qq{
Usage: perl $0 <input> [directory]
E.g.:  perl $0 files.txt "C:\\\\my dir\\\\"
Note:  <directory> must be double-slashed
	}
}