[ЖЖ] Велосипед не мой.

sub http_get {
    my ($par)             = @_;

    my $timeout = 5;
    $timeout    = "-T ".$par->{"timeout"} if $par->{"timeout"};

    my $url     = "http://localhost";
    $url        = $par->{"url"} if $par->{"url"};

    my $tries   = "";
    $tries      = "-t ".$par->{"tries"} if $par->{"tries"};

    my $http_user   = ''; 
    $http_user      = "--http-user=".$par->{"http-user"} if $par->{"http-user"};

    my $output = "/tmp/govno_wget_".time().rand();
    $output = $par->{"output"} if $par->{"output"};

    my $http_password = '';
    $http_password    = "--http-password=".$par->{"http-password"} if $par->{"http-password"};

    my $proxy_user  = '';
    $proxy_user     = "--proxy-user=".$par->{"proxy-user"} if $par->{"proxy-user"};

    my $proxy_password = '';
    $proxy_password  = "--proxy-password=".$par->{"proxy-password"} if $par->{"proxy-password"};

    my $load_cookies = '';
    $load_cookies    = "--load-cookies=".$par->{"load-cookies"} if $par->{"load-cookies"};

    my $save_cookies = '';
    $save_cookies    = "--save-cookies=".$par->{"save-cookies"} if $par->{"save-cookies"};

    my $referer = '';
    $referer    = "--referer=".$par->{"referer"} if $par->{"referer"};

    my $user_agent = '--user-agent="User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.5pre) Gecko/2008120802 Firefox/3.0"';
    $user_agent    = "--user-agent=".$par->{"user-agent"} if $par->{"user-agent"};

    my $post_data   = '';
    $post_data      = "--post-data=".$par->{"post-data"} if $par->{"post-data"};

    my $post_file = '';
    $post_file    = "--post-file=".$par->{"post-file"} if $par->{"post-file"};
    
    my $command = "wget $user_agent $proxy_password $proxy_user $referer $save_cookies $load_cookies $http_user $http_password $tries $timeout -O $output -a /dev/null $url";

    
    system($command);

    my $WGETS = undef;
    open($WGETS, $output) or die "$! $output";
    my $html = join ("", <$WGETS>);
    close($WGETS);
    unlink $output if !$par->{"output"};
    return $html;
}