E:\Apache\cgi-bin\GMS>perl -w -e "use GMS; my $GMS = new GMS; $GMS->logaction('test') or die($!);"
seek() on unopened filehandle GMS::LOGFILE at GMS.pm line 271.
print() on unopened filehandle GMS::LOGFILE at GMS.pm line 272.
   (in cleanup) Can't call method "EXISTS" on an undefined value at E:/Perl/site/lib/IniFile.pm line 375 during global destruction.