#!/usr/bin/perl use strict; 
use Expect; 
my $session = new Expect; 
$session->spawn("telnet $my_ip");
$session->expect(90, -re, "login:"); 
print $session "regress\r"; 
$session->expect(90, -re, "Password:"); 
print $session "MaRtInI\r"; $session->expect(90, -re, ".*");
print $session "pwd\r"; $session->expect(90, -re, ".*"); 
$session->close()