Select Code to Download

    ...
    $SIG{ALRM} = sub { die 'timeout' };
...
    die $@ if 'timeout' eq $@;
    ...
}

    my $timed_out = 1;
    TIMEOUT_BLOCK_WITH_UNIQUE_LABEL: {
...
            if $err;
        $timed_out = 0;
    }