Select Code to Download

#!/usr/bin/perl

...
print OUT "$_" while (<WGET>);
close WGET; 
close OUT;

$ cat out.txt
--12:39:46--  http://www.perlmonks.com/
...
   50K .......... .......... ...                              @  11.39
+ MB/s

12:39:48 (691.69 KB/s) - »index.html« gespeichert [75079]