push (@INC,'H:\scr\pm');
require FileUtil_0_8_9_4;
require logfile;
use File::Spec;
use Tk;
use Tk::CheckbuttonGroup;
use Tk::Checkbutton;
use Config::IniFiles;
use Win32;