or download this
my $mu = Memory::Usage->new();
...
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