open $fh, .... or die ...;
close $fh;