#! Perl\bin\perl -w

use VROOM::Search::Google;

open FILE1, "> sample1.txt" or die "$!";

my $oSearch = new VROOM::Search::Google( );

my $sQuery = VROOM::Search::Google::escape_query('"telefonos" "mundial"');

$oSearch->native_query($sQuery);
  
while ( my $oResult = $oSearch->next_result() ) { 
	
    print "Adding: ", $oResult->url, "\n";
    print FILE1 $oResult->url, "\n";
   
    }
print ref($oSearch);