Select Code to Download

Found use of die. Use an exception instead at line 38, column 8.  Exce
+ption objects 
should be used instead of the standard Perl error mechanism.  (Severit
+y: 4)

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

eval {
    $hECO = retrieve($ECO_path);
...
    print "Couldn't open $Opening_path : $@";
    exit;
}