{
  my $selfref;
  sub named {
    # use $selfref here
  }
  $selfref = \&named;
}