#!/usr/bin/perl

use strict;
use warnings;
use TS2;


my $eingabe;
my $ts = TS2->new();

if (@ARGV) {

	$ts->connect("ciw-ts.ath.cx","2004","7002","Real-TTX","xxx");
		print "Connection Established!\n" if (TS2::got("OK"));

	$ts->msg(@ARGV); 


print "Message was Send!\n" if (TS2::got("OK"));
} else {

print "Invalid Argumment!\n";
}