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