eval {
  local $SIG{ALRM} = sub { die 'Timed Out'; };
  alarm 1;

#receive response
  $handle->recv($newmsg, 1024) or die;
  $packet = Net::DHCP::Packet->new($newmsg);
  $data = $packet->toString();

  close $handle;
  alarm 0;
};

close $handle;