Help for this page
open(...) or die; close ... or die;
eval { open ...; open ...; 1 } or print "ERROR $@\n";