use Crypt::Rijndael;
my $plaintext = my $key = '1234567890123456';
my $cipher = Crypt::Rijndael->new( $key, Crypt::Rijndael::MODE_ECB );
my $encrypted = $cipher->encrypt($plaintext);
printf "%02x", ord $_ for split //, $encrypted;