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

my $ua = LWP::UserAgent->new();
my $url = 'http://www.netzmafia.de/cgi-bin/httpheader.cgi';
my $such = $ARGV[0];
my $data = $ua->post($url, ['URL' => $such]);
if ($res->is_error())
  { die "Fehler: ", $res->code(), $res->message(), "\n"; }
print $data->content(), "\n";