$telnet = new Net::Telnet(Timeout => 60, Host => "92.16.10.11",
								Input_log=>$input, Output_log=>$output)
	or die "Telnet failure";
	$telnet->login("root", "root") or die "Cannot login";
 my @clean= $telnet->cmd("mk -b 1024 /tmp/hd")