# subroutine name: readdata_nolock
# Reads all data from datafile without file locking
# If error occurs (e.g. file doesn't exist), makes CGI process exit with error
# Returns: reference to the array of lines, trailing "\n" in each 
#          line is not removed
sub readdata_nolock {
	my($datafile) = @_;
	my @data;
	local *DATA;
	if (open(DATA,"<$datafile")) {
		my $line;
		while ($line = <DATA>) {
			push (@data, $line);
		};
		close(DATA);
	} else {
		die("Error in subroutine readdata_nolock: Can't open $datafile. Reason: $!");
	}
	return \@data;
}