#!/usr/bin/perl

use warnings;
use strict;

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

my $url = "http://www.letssingit.com/frame_menu.html";
my $query = "avril";


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    => {
                                  s => $query,
                                  l => 'song',  # or 'artist' or 'album' or 'lyrics'.
                                },
                  );

my $content = $mech->content;
print $content;