my $handle;
open ($handle, $filename);
...
close ($handle);