Select Code to Download

my @array;
my $p = HTML::Parser->new(api_version => 3,
...
   print $aline;
}
print "\n";

my $link = 'somelinek';
my $page = get($link) or die $!;
...
        }
    }
}