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

while(1) {
  &leak();
}

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