#!/usr/bin/perl -w
use strict;
use Expect;
use Data::Dumper;

my $timeout = '20';
my $user_ts = '192.10.1.1 8000';
my $user_ts_user = 'username';
my $user_ts_pass = 'password';

my $exp;
     $exp = Expect->spawn("telnet $user_ts") or die "Cannot spawn telnet: $!\n";
     my $spawn_ok;
     $exp->raw_pty(0);
     $exp->exp_internal(0);
     $exp->slave->stty(qw(-a));
     #$exp->slave->stty(qw(raw -echo));
     #$exp->slave->clone_winsize_from(\*STDIN);
     do_exp ($timeout, 'login', "$user_ts_user\r",0);
     do_exp ($timeout, "password:", "$user_ts_pass\r",0);
     do_exp ($timeout, 'Connected to line', "AT &F X3 S38=0 \\N2\r",1);
     $exp->interact();


          sub do_exp {
                  my ($_timeout, $_lookfor, $_send,$_slow) = @_;
                  if (my $out = $exp->expect($_timeout,'-re',$_lookfor)) {
                        print "out=".$out."\n";
                        if ($_slow == 0){
                        $exp->send("$_send");
                        } else {
                        print "Send_SLOW\n";
                        my @SlowChars = split(//,$_send);
                        print Dumper(@SlowChars);
                        my $return = $exp->send_slow(1,@SlowChars);
                        print Dumper($return);
                        }
                  } else {
                        print Dumper($exp);
                        die "Timeout waiting for $_lookfor.\n";
                  }

          }