#!/usr/local/bin/perl

use Cwd ();

print "Content-Type: text/html\n\n";

print "<ISINDEX>\n";
print "<B>hello</B><P>\n";
if(-f "D:/Integral/wwwroot/cgi-bin/hello.pl"){
  print "file found";
}else{
  print "file not found";
}

print "die uebergebenen Daten sind:<hR>\n";

print $ARGV[0];

foreach $i (keys(%ENV)) {
  $r = $ENV{$i};
  print "$i = $r<br>\n";
}

$x = &getcwd();
print "x = $x\n";