[no2pencil]

Description: Read a file, display the results

#!/usr/local/bin/perl
# Written by #2pencil 10/09/2007

$data_file="data.txt";
$i=1;

open(MYFILE, $data_file) || die("Could not open log file!");
@raw_data=;
foreach $line (@raw_data) {
	chop($line);
	print "$i) $linen";
	$i++;
}
close(MYFILE);