#!/usr/bin/perl -w
#use Net::Telnet;
#use strict;

print "Enter the hostname you want to connect? \n" ;
$hostname = <>;
$telnet = `telnet $hostname `;

#$telnet = new Net::Telnet (Timeout=>10, Errmode=>'die');
#$telnet -> open('$hostname');
$telnet -> waitfor('/Username: $/i');
$telnet -> print('axiom');
$telnet -> waitfor('/Password: $/i');
$telnet -> print('axiom');
$telnet -> waitfor('/\$ $/i');
$telnet -> print('who');
$output = $telnet->waitfor('/\$ $/i');
print $output;