use strict;
sub READ () { 34 }

{
  no strict 'refs';
  print &{'READ'}(), "\n";
}

{
  print &{$main::{'READ'}}(), "\n";
}