sub test_sub {
  my ($thischan, $thisuser, $thismsg) = (@_); 
  return "test_sub" if @_ == 0;
  return unless $thismsg =~ /^:google /;
  use WWW::Search;
  my $search = new WWW::Search('Google');
  $search -> maximum_to_retrieve(5);
  $search -> native_query(WWW::Search::escape_query("osama"));
  $search -> seek_result(2);
  my $result = $search -> results();
  use Data::Dumper; print Dumper \$result;
  carp "cycling";
}