my $url = "http://www.letssingit.com";

use lib "/home/sash/public_html/lib/";

use WWW::Mechanize;
my $mech = WWW::Mechanize->new(agent=>"wonderbot" );
$mech->get($url);

print header, start_html("lyrics grabber");

$mech->submit_form(
                   form_name => "search", 
                   fields    => { query  => 'search', },
                   button    => 'Go'
                   );


$mech->uri();