my %hash;
my $obj = tie( %hash, "Tie::Hash::Stack" );

print defined( $obj ) ? "ok" : "not ok";
# or simply $obj ? "ok" : "not ok";