Torsten: PDF-Datei mit perl an Browser zurückgeben

Beitrag lesen

Hallo,
ich möchte mit hilfe eines Formulares einen nummer eingeben, die in meinem script
eine pdf-datei aufrufen soll und an den browser zurückgeben soll, so das automatisch
acrobat reader aufgerufen wird.
in meinem fall erst mal nur eine datei zur auswahl -> testen.
ich gebe also di nummer 001160 ein und möchte die datei  400842.pdf erhalten,
hier ist mal mein script:

#!/perl/bin/perl.exe

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $input);

foreach $pair (@pairs) {
          ($name, $value) = split(/=/, $pair);
        
          $name =~ tr/+/ /;
          $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
          $value =~ tr/+/ /;
          $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name} = $value;
                    }

$nummer=$FORM{"nummer"};

if (nummer == 001160)
{
    print "Content-type: application/pdf \n\n";
    print "4008420.pdf";
}

else
{
  print "Fehler";
}

Ich kann die Datei mit einem normalen link ohne Probleme aufrufen, aber über das script
gibt er mir immer die Fehlermeldung:  "Document contained no data. Try later, or contact the server‚s
administrator." als Popup-Fenster.
Info: Der Webserver läuft unter Windows NT Server 4.0 mit IIS4 und ActivePerl.