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