Select Code to Download

perl -e"@_=map{glob}@ARGV;print$_,':'and$_=do{local(@ARGV,$/)=$_;<>},p
+rint$£=s!$/!!g,$/for@_" c:\*\*.pl

#! perl -sw
use strict;
...

    for @_;
__END__