eval { $hECO = retrieve($ECO_path); 1; } or do { print "Couldn't open $ECO_path : $@"; exit; } eval { $hNIC = retrieve($NIC_path); 1; } or do { print "Couldn't open $NIC_path : $@"; exit; } eval { $hOpening = retrieve($Opening_path); 1; } or do { print "Couldn't open $Opening_path : $@"; exit; }