Select Code to Download

$ perl -le" sub f { print scalar @_ }; f(1,2); f( @ARGV ); "
2
0
...
$ perl -le" sub f { print scalar @_ }; f(1,2); f( @ARGV ); " a b c
2
3

#!/usr/bin/perl --
use strict; use warnings;
...
__END__
"1\r\n\2\r\n\3\r\n"
""