rename($filename, $newfile) or warn "Couldn't rename: $filename -> $newfile: $!";

##</code><code>##

"$dir/$filename"