$timeout = 0; foreach (@url){ chomp; $site = "$_"; $time = time(); $ua->timeout(2); $SIG{'ALRM'} = sub {$timeout =1;}; $request = new HTTP::Request POST => $site; $response = $ua->request($request); $return_code = $response->code([$code]); print "return code = $return_code\n"; print "timeout = $timeout\n"; &check_status($site, $return_code, $time);