Select Code to Download

package OpenOrDie;
use strict; use warnings;
...
    
    return $fh;
}

use OpenOrDie;

my $FILE = Open('<',$filename);

eval {
   my $FILE = Open('<',$filename);
...
   warn("Cannot parse configuration; $@");
   $config{skip} = 1;
}