#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, $_);
}