open(FILE, $data_file) or die("cannot open file : $data_file $!");
print "<p>opened file $data_file ok\n";
	
while ($line = <FILE>) {
		
	DO A BUNCH OF STUFF WITH THIS LINE

}
close(FILE);