eval {
	my $data="x";
	open my $fh, "<", \$data or die $!;
	die unless <$fh> eq "x";
	close $fh;
1 } or do {
	print "# ##### Bailing Out #####\n";
	print "Something went wrong trying to use an in-memory ",
		"filehandle: ", $@,
		"Does your build of Perl include PerlIO?\n";
	exit 0;
};