#!/usr/bin/perl

use strict;
use warnings;

use Net::EasyTCP;

my $host = $ARGV[0] || 'localhost';

my %client = (
  mode     => "client",
  host     => $host, 
  port     => 12345,
  );

my $client = Net::EasyTCP->new(%client) || die "ERROR CREATING CLIENT: $@\n";

$client->send('HUP') || die "ERROR SENDING: $@\n";
print "HUP Done\n";
sleep 3;
my $client2 = Net::EasyTCP->new(%client) || die "ERROR CREATING CLIENT2: $@\n";
$client2->send('TEST') || die "ERROR SENDING: $@\n";
print "OK..\n";
my $reply = $client2->receive() || die "ERROR RECEIVING: $@\n";
print "reply: $reply\n";
$client->close();
__END__