sub webserverdialog
{
        my $uname = shift;
        my $pw = shift;
        my $log = shift;
        $counter++;
        $log->msg(1, "Durchgang Nr.: $counter \n");
        -----> Bis zu diesem Punkt klappt es <----
        # Den Agenten initialisieren
        my $agent = WWW::Mechanize->new(autocheck=>1);
        $agent  ->cookie_jar(HTTP::Cookies->new());

....