use LWP::Simple;
my $lnr = '2689';
my $k1  = '52';
my $k2  = '48';
my $getURL = qq~http://www.schlachtplatz.de/cgi-bin/spiel/karte.pl?lnr=$lnr&k1=$k1&k2=$k2~;

# ---------------------------------------------------
# LOGIK
# ---------------------------------------------------

my $file = get( $getURL );
print "Content-type: text/html\n\n";
print $file;