my $rec;
	sysopen(DF, "test.txt", O_RDONLY);
	sysread DF, $rec, 26214400;	#25meg
	close DF;

##</code><code>##

	foreach(split("\n",$rec)){push(@array,"$_\n";)}
	$rec='';	# Release memory