#!/usr/bin/perl -w

use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my ($ua, $req, $chrom, $start, $end, $db, $check);

$chrom="7";
$start="117287204";
$end="117475903";
$db="hg11";

open (GENOMIC, ">genomic_dna") || die "Error: Can't open genomic_dna: $!";

$ua = LWP::UserAgent->new;
$req = POST 'http://genome.ucsc.edu/cgi-bin/hgText',
    [
     hgsid => '6765675',
     g => 'htcGetDna2',
     c => 'chr'.$chrom,
     l => $start,
     r => $end,
     db => $db,
     hgc.dna.out1 => 'lc',
     boolshad.hgc.dna.rc => '1',
     Submit => 'Submit'
     ];

print GENOMIC $ua->request($req)->content;
close (GENOMIC) || die "Error: Can't close genomic_dna: $!";

##</code><code>##

[dswan@ashtaroth useful]$ ./genomic.pl
Bareword "hgc" not allowed while "strict subs" in use at ./genomic.pl line 18.
Bareword "dna" not allowed while "strict subs" in use at ./genomic.pl line 18.
Bareword "boolshad" not allowed while "strict subs" in use at ./genomic.pl line 18.
Bareword "hgc" not allowed while "strict subs" in use at ./genomic.pl line 18.
Bareword "dna" not allowed while "strict subs" in use at ./genomic.pl line 18.
Execution of ./genomic.pl aborted due to compilation errors.