Select Code to Download

Select or download this
```
sub new {

...
   return(1);

}
```

E:\Apache\cgi-bin\GMS>perl -w -e "use GMS; my $GMS = new GMS; $GMS->lo
+gaction('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.