package OpenOrDie;
use strict; use warnings;
use vars '@ISA @EXPORT $VERSION';

require Exporter;

$VERSION = '0.30';
@ISA = 'Exporter';
@EXPORT = 'Open';

sub Open {
	my ($mode, $file) = @_;
	
	open my $fh, $mode, $file 
		or die("Unable to open file '$file' using mode '$mode': $!")
	
	return $fh;
}

##</code><code>##

use OpenOrDie;

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

##</code><code>##

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