my $instance;
sub new
{
   my ($class, $loglevel) = @_;
   $instance ||= do {
      print "$class $VERSION started with loglevel $loglevel\n"
         if $loglevel >= 3;
      bless { _usersetloglevel => $loglevel }, $class;
   };
}