CGI Read File Contents
Read File Contents
#!perl
open(INFO, "file.txt");
@array=<INFO>;
close (INFO);
print "Content-type:text/html\n\n"; #Content Header
foreach $line (@array){
($last,$first)=split(/\|/,$line);
print <<End_of_line;
$first $last<br>
End_of_line
}