#!/usr/bin/perl
use strict;
use Net::Telnet ();
my $telnet;
my $output;
$telnet = new Net::Telnet->new( Timeout=>20,Prompt => '/[\$%#>] $/');
die &Log_Message("Can't open telnet session to the remote host") unless $telnet;
$output = $telnet->open("hppi003");
print $output;
$output = $telnet->login("astwrk2","unix11");
print $output;
print "Logged into the system \n";
print "End";