#!/usr/bin/perl

use strict;
use warnings;

# usage: ./ltsp_client.pl mac_address

use Carp;
use IO::Socket::INET;

die "Could not create socket: $!" unless
    my $sock = IO::Socket::INET->new(
        PeerAddr    =>  'xxxx.xxxx.com',
        PeerPort    =>  xxxx,
        Proto       =>  'tcp',
        Type        =>  SOCK_STREAM,
        Timeout     =>  10,
    );

foreach my $cmd (@ARGV) {
    print $sock "$cmd\n" or die $!;
}

print $sock "EOT\n" or die $!;

my @text = <$sock>;
close($sock) or die $!;

print @text;