CGI 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
}