##
> perl
open ONE, ">", "/tmp/tst";
print (ONE (TWO)); # filehandle
__END__
> cat /tmp/tst
TWO
>
####
> perl
open ONE, ">", "/tmp/tst";
print ONE(TWO); # sub-call
__END__
Undefined subroutine &main::ONE called at - line 3.