#!/usr/bin/perl print"Content-type:text/html\n\n"; $filename = 'data.txt'; open(myfile,"$filename"); @getrec = <myfile>; close(myfile); print "<pre>@getrec";