use Net::Telnet ();
$username = "user1";
$passwd = "pAssword123";
$prompta = '/\w.*/';
$t = new Net::Telnet (Prompt => $prompta,
			Timeout => 20, 
			Dump_Log => "log.txt", 
			Output_log=>"outlog.txt"
			);
$t->open("10.188.37.10");
$t->login($username, $passwd);
@lines = $t->cmd("df");
print @lines;