Select Code to Download

use strict;             # leak occurs whether strict is used or not

...
  $sub_ref = sub { &$sub_ref(); };
  return 0;
}

sub leak {
  my $factorial_sub_ref;
...

  return 0;
}