sub storeLog {
  my $f_vals = shift;                               # get ref to value hash
  my $f_lgr = shift;                            # get ref to logger handler
  my $SubName = (caller(0))[3];

  my $os = $f_vals->{os};
  $$f_lgr->debug("found XP") if $os =~ /xp professional/;
  return 0;
}