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);