Select Code to Download

#!/usr/bin/perl
  # Simple DHCP client - sending a broadcasted DHCP Discover request
...
      or die "socket: $@";     # yes, it uses $@ here
  $handle->send($discover->serialize())
      or die "Error sending broadcast inform:$!\n";