my $source = get('http://www.drudgereport.com'); 
open FH, '>', 'temp.html' || die "Can't open source file\n"; # write temp source file to parse
print FH $source;
close FH;

my $stream = HTML::TokeParser->new('temp.html')
  || die "Couldn't read HTML file $source";