sub dontdie()
{
  print "I didn't die\n";
} 

open(LOK, ">>C:\\Perl\\RTEOlock\\check\\RTEOlock.log") || dontdie();