Select Code to Download

>perl -MO=Concise -e"my $fh; readline($fh)"
...
...
6     <1> readline[t2] vK*/1 ->7
5        <0> padsv[$fh:1,2] s ->6
-e syntax OK