Select Code to Download

./rename *.pl "s/^/old_/"

...
$ARGV[1] == '2.pl';
$ARGV[2] == '3.pl';
$ARGV[3] == 's/^/old_/';

my $pattern = pop @ARGV;
for my $file (@ARGV){
   my $new = $file;
   # apply pattern and rename
}