So the short answer is: you shouldn't.

Technically it should still be possible with modules like WWW::Mechanize and Web::Scraper.

Of course you can search on cpan for google and see if any of those modules work for you.

Google Custom Search might be the solution. Free (with ads), customizable, Google search from your own pages. The business edition, as Joost says, is $100 per year and has no ads.

If, OTOH, you want to programmatically submit a search behind the scenes and do processing of the returned results before (or instead of) displaying them on a web page for the user, then, so far as I've been able to determine, the only option for doing so at this time is to violate google's terms of service.

!/usr/bin/perl -w 
use SOAP::Lite; 

my $query = "perl"; 
my $googleSearch = SOAP::Lite -> service("http://api.google.com/Google
+Search.wsdl"); 
my $result = $googleSearch -> doGoogleSearch( 
    "iwnUXUtHj3bteg5FWfBJDwui3SPeB+iy",     # password to access googl
+e 
    $query,                                 
    0,                                      # Fisrt result 
    10,                                     # Number of results 
    "false",                                # Filter 
    '',                                     # Restriction 
    "false",                                # Secure Search
    '',                                     # lr 
    'latin1',                               # ie 
    'latin1'                                # oe 
); 

print $result->{resultElements}->[0]->{title}; 
print "\n"; 
print $result->{resultElements}->[0]->{URL}; 
print "\n"; 

1;
[download]