use warnings;
use Net::Telnet;


$myIPaddress = "Host IP";
$myDefaultPassword = 'pwd';
$myUsername = "username";
$myHostname = "somehostname";

$OutputFile = "$myHostname" . "_" . ".txt";

open (OUTPUT, ">>$OutputFile");

$telnet = new Net::Telnet ( Timeout=>10,Errmode=>'die');
$telnet->open("$myIPaddress");
$telnet->print("$myUsername");
$telnet->print("$myDefaultPassword");
$telnet->print("enable");


@running = $telnet->waitfor("/$myHostname# \$/i");
$running = "@running";

print OUTPUT $running;

close (OUTPUT);