Help for this page

Select Code to Download


  1. or download this
        my $ua          = LWP::UserAgent->new;
        my $url         = "$mirrors[rand @mirrors]/file.tar.bz2";
    ...
        my $status      = $response->status_line;
    
        if ($status == '200') {... }