#shift if $_[0] eq __PACKAGE__; return $self;

}

      sub tiger ($) {
        local ($_) = @_;
        #use Mhash qw( mhash mhash_hex MHASH_TIGER);
        #eval "use MIME::Base32 qw( RFC ); use Digest::Tiger;" or $self->log('err', 'cant use', $@);
        #$_.=("\x00"x(1024 - length $_));        print ( 'hlen', length $_);
        #Digest::Tiger::hash($_);
      eval{  Net::DirectConnect::TigerHash::tthbin($_);}        
        #mhash(Mhash::MHASH_TIGER, $_);
      }