!#c:\perl\bin
print "Content-type: text/html\n\n";
open(MYFILE, "c:/personnel.dat") || die print "Error encountered opening file ... $!";
while(defined($dataline=))
{
print "Reading file ...
";
@fields = split(/ /, $dataline);
}
foreach $field(@fields)
{
print "$field
";
}
close(MYFILE);