Select Code to Download

#/usr/bin/perl
use strict;
use warnings;
...
$_=$oldname,
warn "can"t rename $oldnme to $_: $!"
}