Use Net::TelNet;
$telnet = new Net::Telnet ( Timeout=>3600,Prompt => "/$prompt/i",Errmode=>'die');
	$telnet->open("susan");
	$telnet->waitfor('/login: $/i');
	$telnet->print('blab');
	$telnet->waitfor('/password: $/i');
	$telnet->print('blab');
	$telnet->waitfor("/$prompt/i");
	print $telnet->cmd("hostname");
    	$hostname = $telnet->cmd("hostname");
	print"Host => $hostname\n";

My Expected Output :- 
Host => osmosun.wmjapan(i.e hostname)
Current outuput => 1