Select Code to Download

    my $ua          = LWP::UserAgent->new;
    my $url         = "$mirrors[rand @mirrors]/file.tar.bz2";
...
    my $status      = $response->status_line;

    if ($status == '200') {... }