my $mu = Memory::Usage->new();
		$mu->record('before add appointment');
		my $count1 =  Devel::Leak::NoteSV(my $handle);
		__new_appointment($self1, $event1);
		my $count2 =  Devel::Leak::CheckSV($handle );
		print $count1, "\n";
		print $count2, "\n";
		print $count2-$count1, "\n";
		$mu->record('after add appointment');
		$mu->dump();
	__END__	
595269
596072
803

  time    vsz (  diff)    rss (  diff) shared (  diff)   code (  diff)   data (  diff)
     0  772200 ( 772200)  195796 ( 195796)  43708 ( 43708)      8 (     8)  369168 ( 369168) before add appointment
    33  794160 ( 21960)  217104 ( 21308)  43972 (   264)      8 (     0)  390508 ( 21340) after add appointment