Help for this page
#!/usr/bin/perl use warnings; ... print $_; } close($sock);
#!/usr/bin/perl use warnings; ... die "Could not create socket: $!\n" unless $sock; print $sock "Hello there!\n"; close($sock);