open (DATFILE, "prod.dat") or die "I couldn't get at log.txt";   
	for $line (<DATFILE>) {
          print "$line <br>";
        }
close DATFILE;