use LWP::UserAgent;
use LWP::Simple;
use HTTP::Request::Common;

$link = 
"http://www.mycorpsite.com/cgi-bin/gx.cgi/AppLogic+emd.query?full=yes&uid=lamer";
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $link);
$results =
$ua->request(HTTP::Request::Common::HEAD($link))->as_string;
print "$results";