Select Code to Download

perl -e 'print scalar(()=<>),"\n"' filename

perl -pe "}{$_=$." filename

#!/your/perl/here -p
}{$_=$.

#!/your/perl/here
use strict;
use warnings;
while (<>) {}
print "$.\n";

#!/your/perl/here
use strict;
...
    close ARGV;
  }
}