#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $request = HTTP::Request->new(GET => 'http://www.polizei.propk.de/aktionen/kinderpornografie/index.xhtml');

my $response = $ua->request($request);
print $response->status_line,"\n";