sub scanfile ($) {
	my $filename = shift;
	open my $handle, '<', $filename or croak "$filename: $!";
	read $handle, my $buffer, -s $handle;
	return scan ($buffer);
}