my $this = {};
	bless( $this );

	my $count = Devel::Leak::NoteSV( $this->{handle} );

       ...application ( too much to list )

	Devel::Leak::CheckSV($this->{handle});