Select Code to Download

my $stream = HTML::TokeParser->new('$filename')
  || die "Couldn't read HTML file $filename: $!";

print URI->new_abs($next[0][2]{'href'}, $filename), "\n";