if (open(my $fh,'<',$datname)) {
	if (binmode($fh)) {
		local $/;
		my $cont = <$fh>;
	}
}