#!/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);