my $fh;
open($fh ...)
...
close($fh);