==28638== 119,999,872 (119,995,792 direct, 4,080 indirect) bytes in 4,999,820 blocks are definitely lost in loss record 38 of 38
==28638==    at 0x4C272B8: calloc (vg_replace_malloc.c:566)
==28638==    by 0x4ECB48: Perl_safesyscalloc (in  bc-leak2)
==28638==    by 0x4C5FF9: Perl_pad_new (in  bc-leak2)
==28638==    by 0x4C6305: S_cv_clone (in  bc-leak2)
==28638==    by 0x5288C7: Perl_pp_anoncode (in  bc-leak2)
==28638==    by 0x506D92: Perl_runops_standard (in  bc-leak2)
==28638==    by 0x49C1BF: perl_run (in  bc-leak2)
==28638==    by 0x479893: main (in  bc-leak2)