
!#c:\perl\bin

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

open(MYFILE, "c:\\testfile.dat")|| die print "Error encountered opening file ... $!";

while(defined($dataline=<MYFILE>)){
     print "$dataline <br>";
}

  