Select Code to Download

use LWP:::Simple;
my $res = get( $target );
...
}else{
 ...
}

sub check_url {  # subroutine who check given URL
    my $target = shift;
...
    printf     $out_format, $target, $result, $time;
    return $rc;
}