use strict;
use LWP::Simple;
use URI::URL;

my $url = url("http://genome.ucsc.edu/cgi-bin/hgGateway?clade=vertebrate&org=0&db=0&hgsid=63734053");
$url->query_form(clade => "vertebrate",
		 org => "Human",
		 db => "hg17",
		 position => "NM_000747",
		 pix => 620,
		 hgsid => 63734054,
		 Submit => "submit",
		 customTrackPage => "add your own custom tracks",
		 hgTracksConfigPage => "configure tracks and display"	 
		 );

my $page = get($url);
open (OUTPUT, ">output.html") || die "Could not open output: $!\n\n";
print OUTPUT $page;