open my $fh, '<', $self->{'file'} or die "open: $!";
flock(LOCK_EX | LOCK_NB) or die "lock: $!";