Question

Is it possible to create a socket connection to an open port on an end device.

If the connection drops print something?

I have seen a few examples but they require a server type script and a client, just looking for a client.

Thanks

Answer 1

Perl has sockets built right into it. You just need to load the standard Socket.pm module to get the constants you need.

The perlipc manpage tells you all about this. There are many higher-level modules that get at this more easily than the builtins, however. Some are even standard.

Here’s a CLI example:

% perl -MIO::Socket::INET -E '$him = new IO::Socket::INET "localhost:daytime" // die; print while <$him>'
Tue Jun 28 08:17:13 2011