use LWP::UserAgent;
use strict;
use warnings;

sub download {
# von, wohin
my $execf = $_[1];
$execf =~ s/chr(92)/chr(92)chr(92)/;
my $get = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $_[0]);
my $gettxt = $get->request($req);
my $quell = $gettxt->content;
open dfile, "> $execf";
print dfile $quell;
close dfile;
}

&download('http', 'C:\test');