#!/usr/bin/perl -w

use strict;
use IO::Socket;

# Klient na komunikaci s naším serverm; Správně by se použil select,
# sysread a syswrite, aby se obešly problémy s bufferováním
my ($host, $port) = @ARGV;
unless (defined $host and defined $port) {
	die "We expect hostname and port number as command line parameters, sir.\n";
}

my $socket = new IO::Socket::INET('PeerAddr' => $host,
	'PeerPort' => $port);
unless (defined $socket) {
	die "Cannot connect: $@\n";
}
$socket->autoflush;

print $socket "Dobry den.\n";
print scalar <$socket>;
print $socket "What is your date?\n";
print scalar <$socket>;
print scalar <$socket>;
print $socket "Boodbye.\n";
print scalar <$socket>;