sub startup_check {

  ##-- Check that the user is root / linux only--##
  if (($> != 0 || $< != 0)) {
        show_dialog "-=[ NO ROOT ACCOUNT ]=-", " You should run this program as root ", $true;
        main Gtk;
        exit($false);
  }

  ##-- Check if there is a config-file --##
  if (! open (CHECKFORCONFIG, $conffile)) {
        show_dialog "-=[ MISSING THE CONFIGFILE ]=-", "\nRun 'perl Makefile.pl' to create the configfile\n",$true;
        main Gtk;
        exit($false);
  }
  close (CHECKFORCONFIG);
  return ($true);
}
