Mega Code Archive
Categories
/
Perl
/
File
Output file line by line
!#c:\perl\bin print "Content-type: text/html\n\n"; open(MYFILE, "c:\\testfile.dat")|| die print "Error encountered opening file ... $!"; while(defined($dataline=
)){ print "$dataline
"; }