Paul: sterben ohne header

Beitrag lesen

Guten Morgen,

eine Frage an alle Perl-Experten:

Warum funktioniert im "Sterbefall" der erste Code-Schnipsel, der zweite aber nicht ?

1):
print "Content-type: text/html\n\n";
$ARGV[0] !~ m/[^\d\w/.&-\_]/ die;
print "still alive";

2):
$ARGV[0] !~ m/[^\d\w/.&-\_]/ die;
print "Content-type: text/html\n\n";
print "still alive";

und was kann ich machen wenn ich die Abfrage ohne Header verwenden möchte/muss.

Dankeschön
Paul