sub unlock{
  my $self=shift;
  my $FH=*{$$self{SEMAPHORE}};
  if(-e $SEM){
    flock($FH,LOCK_UN);
    close $FH;
    unlink $SEM;
  }
}

##</code><code>##

Use of uninitialized value in ref-to-glob cast at /opt/perl5/lib/site_perl/5.6.0
/Logger/Simple.pm line 85.
Use of uninitialized value in ref-to-glob cast at /opt/perl5/lib/site_perl/5.6.0
/Logger/Simple.pm line 98.