use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = POST 'http://lsa.colorado.edu/cgi-bin/LSA-sentence.html',
                    [ txt1 => 'I hate Jimmy. I love Jimmy.'];
$content = $ua->request($req)->as_string;
open(OUTPUT, ">>result.html");
print OUTPUT $content;