use strict;
use LWP::UserAgent;

my $hdrs = new HTTP::Headers(Accept => 'text/plain', User-Agent => 'IE/5.0');
my $ua = new LWP::UserAgent;

get_url('http://www.friendscout.de/cgi-bin/pu_help.fcgi?id=1-d24-fL6sAsiUXoQo7uGcUZ6T6Hjs&page=loginp&nickname=JohnSmith&password=test&x=0&y=0');
get_url('http://www.friendscout.de/cgi-bin/pu_login1.fcgi?password=test&nickname=JohnSmith&?id=1-d24-fL6sAsiUXoQo7uGcUZ6T6Hjs&x=13&y=9');

sub get_url()
{
    my $url2get = shift @_;

    my $url = new URI::URL($url2get);
    my $req = new HTTP::Request('GET', $url, $hdrs);
    my $resp = $ua->request($req);

    if ($resp->is_success) {
            printf "Good %s",$resp->content;}
    else {
            printf "Bad %s",$resp->message;}
}