#!/usr/bin/perl

use LWP::UserAgent; 
$ua = LWP::UserAgent->new; 
$ua->agent("Mozilla 8.0");

use HTTP::Request::Common qw(POST);

my $req = (POST 'http://www.bioinformatics.nl/cgi-bin/primer3plus/primer3plus.cgi', 
["SEQUENCE" => "AATGAGTTAATAGAATCTTTACAAATAAGAATATACACTTCTGCTTAGGATGATAATTGGAGGCAAGTGAATCCTGAGCGTGATTTGATAATGACCTAATAATGATGGGTTTTATTTCCAGACTTCACTTCTAATGGTGATTATGGGAGAACTGGAGCCTTCAGAGGGTAAAATTAAGCACAGTGGAAGAATTTCATTCTGTTCTCAGTTTTCCTGGATTATGCCTGGCACCATTAAAGAAAATATCATC[C]GGTGTTTCCTATGATGAATATAGATACAGAAGCGTCATCAAAGCATGCCAACTAGAAGAGGTAAGAAACTATGTGAAAACTTTTTGATTATGCATATGAACCCTTCACACTACCCAAATTATATATTTGGCTCCATATTCAATCGGTTAGTCTACATATATTTATGTTTCCTCTATGGGTAAGCTACTGTGAATGGATCAATTAATAAAACACATGACCTATGCTTTAAGAAGCTTGCAAACACATGAAA",
 "SCRIPT_DETECTION_PICK_LEFT" => "checked",
 "SCRIPT_DETECTION_PICK_RIGHT" => "checked"
 ]);

$request = $ua->request($req); 
$content = $request->content; 

open(OUTPUT,">output_here.html");
print OUTPUT "$content";
close(OUTPUT);
exit;