use Object::Destroyer; 
  
eval { 
  
    local $SIG{ALRM} = sub { die("alarm\n") }; 
  
    alarm(4); 
	my $sentry = Object::Destroyer->new( sub {alarm(0)} ); 
  
	#Get Status 
    sleep (2) 
  
}; 
 if ($@) {print "Alarm";} 
else { 
   print "OK";}

use Time::HiRes; 
use Object::Destroyer; 
use Net::DHCP::Watch; 
  
  
  # server name 
  my $Server = '192.168.1.1'; 
  # this machine ip and ethernet address 
  my $IP     = '192.168.1.2'; 
  my $Ether  = '00:23:CD:CE:43:DC'; 
  my $timeout = 5; 
  
  my $stat =''; 
  
 # Net::DHCP::Watch object 
  my $dhcpw = new Net::DHCP::Watch({ 
                server => $Server, 
                client => $IP, 
                ether  => $Ether, 
		timeout => $timeout 
        }); 
  
  # Open network 
  $dhcpw->watch(); 
  
  my $start = [ Time::HiRes::gettimeofday( ) ]; 
  
eval { 
  
    local $SIG{ALRM} = sub { die("alarm\n") }; 
  
        alarm(6); 
	my $sentry = Object::Destroyer->new( sub {alarm(0)} ); 
  
	#Get Status 
    $stat = $dhcpw ->status; 
  
}; 
 if ($@) { 
  
		print "Error"; 
} 
else { 
  
  $elapsed = Time::HiRes::tv_interval( $start ); 
  $elapsed = $elapsed * 1000; 
  
  # print results 
  
  if ( $stat->{Ok}  )  
  {   
    print "Remote DHCP $Server online.\n"; 
	print "Dhcptime;$elapsed;ms"; 
 } 
 else  
 { print "Error"; 
 } 
}