my $FH = "DATA";
	open $FH, "<", $filename	 or croak "Cannot open file $filename - $!\n";