sub testUnless {
     my $v = 'Navidson';
     unless ( $v ) {
          return undef;
     }
     else {
          return $v;
     }
}
sub testIfNot {
     my $v = 'Holloway';
     if (!$v) {
          return undef;
     }
     else {
          return $v;
     }
}