open(...) or die;
close ... or die;

##</code><code>##

eval { open ...; open ...; 1 } or print "ERROR $@\n";