Select Code to Download

sub there {
  print "I'm here!";
...
foreach (keys %refs) {
  print "'$_' is ", defined &{$refs{$_}} ? "valid\n" : "invalid\n";
}

'there' is valid
'not' is invalid
'anon' is valid