$telnet = new Net::Telnet (input_log => \*STDOUT , Timeout =>1000);
$telnet ->open("$host");
$telnet->login("$user","$password");
$telnet->cmd("snoop -d bge0");