Select Code to Download

perl -MO=Deparse -n -e '@a = <>; END{ print @a; } '
LINE: while (defined($_ = <ARGV>)) {
...
    }
    ;
}

echo -e '55\n44\n33\n22\n11\n' | perl -n -e '@a = ($_,<>); END{ print 
+@a; } '