The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
$VAR1 = {
	foo => bless( { foo => 'bar' }, 'UpperCase' ),
	bar => bless( {              }, 'False'     ),
	baz => bless( {              }, 'Private'   ),
};