All pastes #946974 Raw Edit

speak.pl

public text v1 · immutable
·published 2008-03-18 02:00 UTC
rendered paste body
#!/usr/bin/perl

use IO::Socket;

my $sock = new IO::Socket::INET (
        PeerAddr => '10.0.1.101',
        PeerPort => '7070',
        Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;

print $sock "I am drone";
print <$sock>;
close($sock);