sub OPEN
{
	my ($self, $path, $mode, $fh) = @_;
	
	print "Path: " . $path . "\n";
	print "Mode: " . $mode . "\n";
	print "FH: " . $fh . "\n";

	open $fh, "<:crlf", $path;
}