Hello sago,

Is this a actually Perl script? If so, what Perl code have you already written so that we may have the opportunity to debug it?

If not, well then the question is off-topic for PerlMonks and should be asked at a more appropriate venue.

If you try CPAN first, you will find this: Net::Telnet

Telnet with SMTP server example:

use strict;
use warnings;

use Net::Telnet ();
my $t = new Net::Telnet (Timeout => 10,
                         Port => 25);
$t->open("192.168.0.25");
my $foo = $t->getline;
print $foo;
$t->print("HELO darkstar");
$foo = $t->getline;
print $foo;
[download]

Remember CPAN is your friend!

Without showing us the script you used, our only recourse is to use random guessing what you did

My guess is that you just printed YYYY and ZZZZZ on STDOUT and that didn't work because STDOUT of the script is not connected to STDIN of the script.

To do that you either use the module Expect (which is a general solution for scripts to call interactive command line programs, or Net::Telnet which is tailored especially to telnet communication. You can find both modules either in your local perl library or on CPAN

Wrong website to be asking that question >.<. However, I am sure there are plenty of monks who will still help you with the problem.