sub new{
	my $class = shift;
	my $self = bless{}, $class;
	return eval{
		my $file = $class.".pm";
		$self->{POS} = tell DATA;
		$self->{BUF} = '';
		$self->{FH} = new IO::File;
		$self->{FH}->open($INC{$file}, O_RDWR) or die "IO-Error: $!";
		flock $self->{FH}, LOCK_EX or warn "Your system does not support flock";
		$self->{FH}->seek($self->{POS}, 0);	
		read $self->{FH}, $self->{BUF}, 32;
		$self->{NR} = unpack "A32", $self->{BUF};
		$self;
	};
}