my $userAgent = LWP::UserAgent->new();

	
my $request = HTTP::Request->new(POST => 'http://genome.ucsc.edu/cgi-bin/hgBlat?command=start',

 
					[
	org => "D. majovensis",

						userSeq => "$alignmentQuery",

						submit => "submit",


					]
);


	my $response = $userAgent->request($request);

	
	if($response->is_success)

	{

		open(FILE, "> $_.html") or die $!;

		print FILE $response->content;

		close FILE;
	}