use constant IS_WINDOWS => $^O eq "MSWin32" ? 1 : 0; use constant IS_SUSE => -f "/etc/SuSE-release" ? 1 : 0; use Config::General; use Config::Properties; use Locale::Language; use Locale::Country; use FindBin qw($Bin); use Fcntl qw(:DEFAULT :flock); use Time::Local; use POSIX; use DateTime::Format::Strptime ; use Log::Log4perl; use Log::Log4perl::Level; use Storable qw(store nstore retrieve freeze thaw); use File::Basename; use File::Copy;