#!/usr/bin/perl -t

use strict;
use warnings;

$SIG{__WARN__} = sub { die @_ };
print eval{
    my $m = bless{ CONTENT => 'Hallo!' };
    my $file = $ENV{QUERY_STRING};
    unshift @ARGV, $file;
    local $/ = undef;
    $m->{CONTENT} = <>;
    "Content-Type: text/plain; Charset=utf-8\n\n".$m->{CONTENT};

} || "Content-Type: text/plain; Charset=utf-8\n\n$@";