http://www.GIDEONonline.net/loginx.php?user=metalib ##

##

#!/usr/bin/perl
use strict;
use LWP::UserAgent;
{
    my $ua = new LWP::UserAgent();
    my $search_address = "http://www.GIDEONonline.net/loginx.php?user=metalib";

    #creating the request object
    my $req = new HTTP::Request ('POST', $search_address);

    #sending the request
    my $res = $ua->request($req);
    if (!($res->is_success)){
        warn "Warning:".$res->message."\n";
    }

    my $response = $res->headers_as_string();
    my $response .= $res->content();
    print "$response\n";
}

##

##