#!/usr/bin/perl
use strict;
use LWP::UserAgent;
my $path="http://www.biomart.org/biomart/martservice?type=registry";
my $request = HTTP::Request->new("POST",$path,HTTP::Headers->new(),"\n");
my $ua = LWP::UserAgent->new;
my $response;
my $results;
$ua->request($request,
sub{
my($data, $response) = @_;
if ($response->is_success) {
$results .= $data;
}
else {
# warn ("Problems with the web server: ".$response->status_line);
}
},1000);
if ($results =~ m/ensembl/) {
# print "\nBioMart Central Portal up and running www.biomart.org/biomart/martservice?type=registry\n";
exit(0)
}
else {
#failure
exit(1);
}
