#!/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$@";