Hallo,
print [HTTP::Request->parse(<<REQUEST)->parts]->[0]->headers->header('Content-Type');
Das bringt mir einen "Can't find string terminator "REQUEST" anywhere before EOF at /xxxxxxx/test.pl line 8."
Ich habe von Perl leider nicht mehr die große Ahnung (meine Perl-Zeit ist 4 Jahre her ;-).
Grüße
Thomas