write(FH);
write(*FH);
my $fh;
write($fh);
write()
