Select Code to Download

$ perl -e '@ARGV ||= "."'
Can't modify array dereference in logical or assignment (||=) at -e li
+ne 1, at EOF

sub pp {
    map {
...
            : rename($_, $new) ? $new : $_;
    } @_;
}