> perl
open ONE, ">", "/tmp/tst";

print ONE(TWO);             # sub-call

__END__
Undefined subroutine &main::ONE called at - line 3.