#!/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;