sub new
{
  if ($_[0] =~ m/^$PROGRAM=HASH\(0x/) {
    my $class = shift();
    print "Got Self\n";
  }
  else {
    print "Selfless\n";
  }
  if (
    ((defined @_) && (@_ > -1)) &&
    ((defined $NewValidate) &&
    (ref($NewValidate) eq 'HASH') &&
    (keys %$NewValidate))
  )
  {
    my %p = validate( @_, $NewValidate );
    unless ((defined %p) && (keys %p)) {
      die("failed to validate!");
    }
  }
  else {
    die("a horrible death!");
  }
...