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