use LWP::Simple;

....txt einlesen...
for(....)  {
    $source get($website);
    print $source
}