use Carp::Heavy;
use Cwd;
use Cwd qw(chdir getcwd);
use Fcntl qw(:flock);
use File::Basename;
use File::Copy;
use File::Find;
use Getopt::Long;
use Net::Ping;
use POSIX qw(strftime mktime);
use Socket;
use strict;
use Tk;
use Tk::Button;
use Tk::Canvas;
use Tk::Checkbutton;
use Tk::DirSelect;
use Tk::DirTree;
use Tk::Entry;
use Tk::Event;
use Tk::Label;
use Tk::Listbox;
use Tk::Menu;
use Tk::Menubutton;
use Tk::NoteBook;
use Tk::Optionmenu;
use Tk::Pixmap;
use Tk::Radiobutton;
use Tk::Scrollbar;
use vars qw(%conf);
use vars qw/$gScriptRunFullPath $LastError/;
use vars qw ($key $working_dir $gui_text $finalfile $focusin_flag $user $hide $OEMencode $autoexit $backuptest);
use vars qw(%lang);
use vars qw ($sec $min $hour $mday $mon $year $wday $ydat $isdst);
use vars qw ($time %dir_list $value $dashdir);
use Win32;
use Win32API::File qw( :ALL );
use Win32::File;
use Win32::Internet;
use Win32::OLE;
use Win32::OLE qw( in );
use Win32::Process;
use Win32::TaskScheduler;
use Win32::TieRegistry;