Crypt::TripleDES doesn't work with perl 5.8 (Linux)

[Jonas]

I have the following perl program witch i use to encrypt a
password file with.
In perl 5.6 this program works like a charm but when trying it on
the RED HAT EL 3 platform (taroon) is doesnt decrypt the encrypted string right.

Program
use Crypt::TripleDE S;

sub generate()
{
print "Filename:" ;
$filename=<STDI N>;
print "Username:" ;
$username=<STDI N>;
$passphrase="db atools";
open(FILE,">$fi lename")|| die("Error writing to file");
$des = new Crypt::TripleDE S;
print FILE $cyphertext = $des->encrypt3 ( $username, $passphrase );
close FILE;
print "\n File generated";
}


sub decrypt()
{
print "Filename:" ;
$filename=<STDI N>;
$passphrase="db atools";
open(FILE,"$fil ename")|| die("File not found");
$cypher=<FILE>;
close FILE;
$des = new Crypt::TripleDE S;
print $des->decrypt3 ( $cypher, $passphrase );
}


if ( ! @ARGV )
{
print "Usage:: generate";
}
else
{
if ( "generate" =~ /@ARGV[0]/i )
{
generate();
}
elsif ( "decrypt" =~ /@ARGV[0]/i )
{
decrypt();
}
else
{
print "Usage:: generate|decryp t";
}
}

Have anyone experiensed the same problem.

The Crypt-Triple-Des version is 0.24

Cheers
Jonas