Found use of die. Use an exception instead at line 38, column 8.  Exception objects 
should be used instead of the standard Perl error mechanism.  (Severity: 4)
##</code><code>##

$hECO = retrieve($ECO_path)
    or die "Couldn't open $ECO_path : $!";
$hNIC = retrieve($NIC_path)
    or die "Couldn't open $NIC_path : $!";
$hOpening = retrieve($Opening_path)
    or die "Couldn't open $Opening_path : $!";

##</code><code>##

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;
}