Select Code to Download

#!/usr/bin/perl -p
11..exit

while (<>) {
  11..exit;
} continue { print }

#!/usr/bin/perl
print+(<>)[-10..-1]

#!/usr/bin/perl
map--$.>9||print,<>

for (<>) {
  print unless --$. > 9;
}

#!/usr/bin/perl -p
$\=$_.$\}{

while (<>) {
  $\ = $_ . $\
} {;
} continue { print }

#!/usr/bin/perl
@_=<>;print@_[$#_/2..@_/2]

#!/usr/bin/perl
printf"%010d\n",$.,<>