Help for this page

Select Code to Download


  1. or download this
    use LWP:::Simple;
    my $res = get( $target );
    ...
    }else{
     ...
    }
    
  2. or download this
    sub check_url {  # subroutine who check given URL
        my $target = shift;
    ...
        printf     $out_format, $target, $result, $time;
        return $rc;
    }