use Net::Telnet;

my $telnet = new Net::Telnet(Timeout => 35,Errmode => 'die');

$telnet->open("10.10.10.11") or die "Connection failed $telnet->errmsg ";

$telnet->waitfor('/login: $/i');
$telnet->print("user") or die $telnet->errmsg;

$telnet->waitfor('/password: $/i');
$telnet->print("pass") or die $telnet->errmsg;

$telnet->waitfor('/prompt> $/i');
@lines = $telnet->cmd("script_01") or die $telnet->errmsg;