Select Code to Download

#!/usr/bin/perl

...
   $client->send(inet_ntoa($iaddr));
   $client->close();
}

#!/usr/bin/perl

...
}

close $socket or die "Can't close socket: $!";