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

##</code><code>##

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