Select Code to Download

my $newname = rename ($file, $mrn);

rename($file, $mrn) || die "Could not rename $file to $mrn - $!\n";