sub read_file {
	my $filename = shift;
	open (DATA, ">$filename") or return;	# could die on error
	my @lines = <DATA>;
	return process(@lines);
}