12 lines
222 B
Perl
12 lines
222 B
Perl
|
|
!#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>";
|
|
}
|
|
|
|
|