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

print (ONE (TWO));          # filehandle

__END__

> cat /tmp/tst
TWO
>