[EMAIL PROTECTED] schreef:
What the others wrote, and:
> my $sock = new IO::Socket::INET( PeerAddr => '10.10.2.141', PeerPort
> => '50000', Proto => 'udp' );
> die "no socket\n" unless $sock;
my $sock = new IO::Socket::INET( PeerAddr => '10.10.2.141'
, PeerPort => '50000'
, Proto => 'udp' )
or die "no socket $!";
> $sock->print( "Hello\n" );
$sock->print("Hello\n")
or die "no Hello $!";
> printf("done\n");
> close( $sock );
close($sock)
or die "no close $!";
printf("done\n");
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
