Editing File: /usr/share/doc/perl-IO-Socket-IP-0.21/examples/connect.pl