$perldata = bless {hello => 'world'}, 'superman';
$bar = test($perldata);
$baz = test($perldata);
my $foo = test($perldata);

$baz = undef;


sub test {
    my $o = shift;
    print "test: $o\n";
    my $m = bless {perldata => $o}, 'TQIS::test';
    return $m;
}

sub TQIS::test::DESTROY {
    my $self = shift;
    warn $self->{perldata};
}