#!/usr/bin/perl
print"Content-type:text/html\n\n";   
$filename = 'data.txt';
print '<pre>';
open(myfile,"$filename");
@getrec = <myfile>;
close(myfile);      
$cnt = @getrec;
for $i (0 .. $cnt-1) {  
  @rec = split(/,/,$getrec[$i]);
  print $i + 1," - ",$rec[0]," - ",$rec[1],"<br>";
}