print "\nUrl4XAPI: ".$link."\n";
        print "File: ".$file."\n";
        my $agent = LWP::UserAgent->new(
              # Fake Debian Firefox (Manche Server weigern sich sonst);
              agent=>'Mozilla/5.0 (X11; U; Linux i686; de; rv:1.9.0.11) Gecko/2009061319 Iceweasel/3.0.11 (Debian-3.0.11-1)' );

        # Cookies akzeptieren und Nutzen.
        # Ist bei manchen Systemen nötig die Logins haben.
        $agent->cookie_jar(HTTP::Cookies->new());

        print "download on work....\n";

        #my $result = $agent->request(HTTP::Request->new('GET',$link));

        my $result_content='';
        my $result = $agent->request(HTTP::Request->new('GET',$link),sub{
                        local $|=1;
                       $result_content.=$_[0];
                        print ".";
                      });
        print "\n";
        $result->content($result_content);