use WWW::Mechanize ();
my $mech = WWW::Mechanize->new();
 
$mech->get( $url );   # the address in your browser

 
$mech->submit_form(
    form_name => 'search',                         # the form name in the code
    fields    => { query  => 'pot of gold', },     # parameters
    button    => 'Search Now'                      # button
);