eval { require HTTP::GHTTP; }; if ($@) { require LWP::Simple; import LWP::Simple; return get($sysid) || die "Cannot get $sysid"; } my $r = HTTP::GHTTP->new($sysid); $r->process_request; return $r->get_body;