my $ssh=Net::SSH::Perl->new("$host");
   $ssh->login("$user","$password");
($stdout,$stderr)=$ssh->cmd("snoop -d bge0");
print $stdout;