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