Select Code to Download

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

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