#! /usr/bin/env perl

use IO::Socket;

my $host = $ARGV[0];
my $port = $ARGV[1];

print "Connecting to $host on port $port\n";

my $socket = IO::Socket::INET->new(PeerAddr => $host,
									PeerPort => $port,
									Proto => "tcp",
									Type => SOCK_STREAM)
	or die "Failed connect to $host:$port : $@\n";

print $socket "Hello bt\n";
close($socket);
exit(0);
