#!/usr/bin/perl

$| = 1;

open OUT, ">out.txt";
open WGET, "wget http://www.perlmonks.com 2>&1 |" or
    die "$!\n";
print OUT "$_" while (<WGET>);
close WGET; 
close OUT;

##</code><code>##

$ cat out.txt
--12:39:46--  http://www.perlmonks.com/
           => `index.html'
Verbindungsaufbau zu www.perlmonks.com:80... verbunden!
HTTP Anforderung gesendet, auf Antwort wird gewartet... 200 OK
Länge: nicht spezifiziert [text/html]

    0K .......... .......... .......... .......... .......... @ 480.77 KB/s
   50K .......... .......... ...                              @  11.39 MB/s

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