# uebergib URL an wget
#    my $content = qx{ /usr/sfw/bin/wget -t 2 -T 5 -S -O - $url | grep '$pattern' };

        my $wget = system "/usr/sfw/bin/wget", "-t", "2", "-T", "5", "-S", "-O", "-", $url;
        my @string = grep $pattern $wget;

print @string;

        #system "/usr/sfw/bin/wget", "-t", "2", "-T", "5", "-S", "-O", "-", $url, "|", "grep", $pattern;

#    print $content
}
close $fh;