Help for this page

Select Code to Download


  1. or download this
    package OpenOrDie;
    use strict; use warnings;
    ...
        
        return $fh;
    }
    
  2. or download this
    use OpenOrDie;
    
    my $FILE = Open('<',$filename);
    
  3. or download this
    eval {
       my $FILE = Open('<',$filename);
    ...
       warn("Cannot parse configuration; $@");
       $config{skip} = 1;
    }