foreach (@url){
      chomp;
      $site = "$_";
      $time = time();
      $ua->timeout(30);
      $request = new HTTP::Request POST => $site;
      $response = $ua->request($request);
      $return_code = $response->code([$code]);
      &check_status($site, $return_code, $time);
    }

##</code><code>##

if ($ua->timeout(30)){
  Write to log
}