The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Tie::Dir;

print "1..2\n";

print "ok 1\n";

new Tie::Dir \%hash, ".";

print "ok 2\n"
	if exists $hash{MANIFEST};