Object moved

use LWP::Simple; use LWP::UserAgent; use HTTP::Request::Common qw(POST); use URI::URL; $url = 'http:///search/gene.asp?'; my $req = POST "$url", [ ID1 => 48852, ] $ua = new LWP::UserAgent; $result = $ua->request($req)->as_string; print $result; ##

##

HTTP/1.1 302 (Found) Object moved
Cache-Control: private
Connection: Keep-Alive
Date: Mon, 16 Jun 2003 10:40:33 GMT
Location: genesrchresults.asp
Server: Microsoft-IIS/5.0
Content-Length: 140
Content-Type: text/html
Expires: Mon, 16 Jun 2003 09:00:33 GMT
Client-Date: Mon, 16 Jun 2003 10:38:42 GMT
Client-Peer: 63.108.93.17:80
Set-Cookie: ASPSESSIONIDCQTTATSB=JKFMHMDBGODCKACLGPAPBLMB; path=/
Title: Object moved

Object moved
Object Moved
This object may be found here.