CGI Display File Contents Code Library

#!perl
open(INFO, "user.list"); # Open db for reading and display
@array=<INFO>;
close (INFO);

print "Content-type:text/html\n\n"; #Content Header

print <<End_of_head;
<html>
<head><title>Display File Contents</title></head>
<body>
End_of_head

foreach $line (@array){
($last,$first)=split(/\|/,$line);
print <<End_of_line;
Name: $last 
Email: $first
End_of_line
}

print <<End_of_Doc;
</body>
</html>
End_of_Doc