Select Code to Download

sub f {
  my $ref=shift;
  ...
  $$ref=4711;
}

# Solution 1
my $ref;
...
f(NULLREF);# Maybe nice if we use this feature often in our
           # program and use NULLREF consistently, but still
           # not really anonymous