#!/usr/bin/perl -t use strict; use warnings; use Data::Dumper; require parse_eav_file; $SIG{__WARN__} = sub { die @_ }; print eval{ my $m = bless{ CONTENT => 'Hallo!' }; my $eav = $m->parse_eav_file("..."); my $class = $eav->{'/'}{class}; my $classfile = $class; $classfile =~ s|::|/|g; $classfile =~ s|\w||g; # Leerstring! require "$classfile.pm"; # Insecure dependency in require while running with -t switch at .. "Content-Type: text/plain; Charset=utf-8\n\n".$m->{CONTENT}; } || "Content-Type: text/plain; Charset=utf-8\n\n$@";