eval 
 {
  MainLoop();
 };

if($@)
 {
  my $f;
  open($f, ">>$error_log") or open($f, ">$error_log");
  my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
  print $f (sprintf("%2d.%02d.%04d %02d:%02d:%02d   ", $mday, ($mon + 1), ($year + 1900), $hour, $min, $sec))."$@\n";
  close($f);
 }