#!/usr/bin/local/perl

use Net::Telnet;

$HOST = 'servername.hostnane.com';
print "Enter the username for the $HOST account: ";
$username = <STDIN>;
chomp $username;

print "Enter the password for the $HOST account: ";
system('stty -echo');
$password = <STDIN>;
system('stty echo');
chomp $password;

$telnetobj = new Net::Telnet(Timeout=>10,Prompt=>'/elmo \$ $/',
					Errmode =>'die');
print "\nAbout to connect...\n";
$telnetobj->open($HOST);

print "Connected!\n";
print "Trying to log in...\n";
$telnetobj->login($username, $password);
print "Logged in!\n";
@fingeroutput = $telnetobj->cmd('finger');
print "Logged in!\n";
@fingeroutput = $telnetobj->cmd('finger');
print @fingeroutput;
$telnetobj->close();