Select Code to Download

my $p = HTML::TokeParser::Simple->new( \$file )
  or die "couldn't parse html: $!";