> perl -v 
5.8.4

##</code><code>##

 eval {
        local $SIG{ALRM} = sub { die "Network Timeout/Error\n" };
        alarm($maxNetworkDelay);
        $ip=URL_encode($ip);
        $encodedMAC=URL_encode($mac);
        my $macr="https://somescript/login;
        $request = HTTP::Request->new(GET => $macr);
        $ua = LWP::UserAgent->new( timeout =>  $maxNetworkDelay );
        $response = $ua->request($request);
        $respcon = $response->content;
        alarm(0);
    };
<strike>
    if($@){
        ilog("Network Delay/Error for .");
        return (-1);
    }#
</strike>

    if($response->status_line =~ /^500/ ){
        ilog("Network Delay/Error for .");
        return (-1);
    }