#!/usr/bin/perl -w # clientIO.pl - a simple client using # IO::Socket use strict; use IO::Socket; my $host = shift || 'server.onsight.com'; my $port = shift || 7890; my $sock = new IO::Socket::INET( PeerAddr => $host, PeerPort => $port, Proto => 'tcp'); $sock or die "no socket :$!"; foreach my $i (1..10) { print $sock "hello, world: $i\n"; } close $sock;