#!/usr/bin/perl
use strict;
use Net::Telnet ();

my $my_call = 'my_call';
my $my_pass = 'password_goes_here';
my $dxc_call = 'sr4dxc';

my $t = Net::Telnet->new(Host => 'sr4dxc.ampr.pl',
                Port => '9000',
                Timeout => 10);
$t->waitfor('/callsign:/');
$t->print($my_call);
$t->waitfor('/Password:/');
$t->print($my_pass);
$t->waitfor('/clx >/');
my @lines = $t->cmd(String => "@ARGV", Prompt => "/$my_call de $dxc_call/");
print @lines;
$t->print("bye");
$t->close;