Select Code to Download

#!/usr/bin/perl

use strict;
...
while (my ($n, $f) = each %to_rename) {
    rename $f, $n or warn "Cannot rename $f to $n; $!";
}