use Data::Dumper;
die Dumper($content);
[download]

<SCRIPT>
if(self==top)top.location.replace("/?"+document.location)
</SCRIPT>
[download]

#!/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;
$content =~ s/self==top//;

print $content;
[download]