#!/usr/bin/perl 

while (<>) {
 chomp;
 @line = split /;/;
 print "moving ../$line[0].wmv to ../$line[1].wmv\n";
  print `mv "../$line[0].wmv" "../$line[1].wmv"`;
}
