Warum geht das so nicht?

[GT]

Hi,
also wenn man das Script von der Kommandozeile ausführt, liest es alle Daten ein und schreibt sie nach STDOUT. Warum geht das nicht wenn ich das über einen IIS ausführe?

#!/usr/bin/perl

@AllFiles= glob('*');
&print_data;
print @AllFiles;

sub print_data
{
print "Content-type: text/html\n\n";
print "< html >< title >Daten umbenennen< /title >< body >\n";
foreach $Dateien (@AllFiles)
{
  print "$Dateien< br >";
}
print "< /body >< /html >\n";
}