Select Code to Download

>perl a.pl
fasfd
...
dsfdasfdasf
dsafsdafdas
fdasfdasfs

#!/usr/bin/perl

...
$fh_log->autoflush(1);

print($fh_log $_) while <STDIN>;