[boulder.pm] perl script to open port?

[Robert L. Harris]

 I need a perl script that'll hit port 23 on a remote box.  If it connects
and gives text, good, if not, I need an external program executed.  
Anyone have anything handy?  Don't wanna re-create the wheel if I don't
have to.

Robert



:wq!
---------------------------------------------------------------------------
Robert L. Harris                |  Micros~1 :  
Senior System Engineer          |    For when quality, reliability 
  at RnD Consulting             |      and security just aren't
                                \_       that important!
DISCLAIMER:
      These are MY OPINIONS ALONE.  I speak for no-one else.
FYI:
 perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'