use strict;
use warnings;

use Crypt::OTP;
use Bytes::Random::Secure qw( random_bytes );

print "Message    : ", my $message = "show me the monKey", "\n";

my $otp = random_bytes(length $message);
print "Ord(OTP)   : ", ( map { ord($_).' ' } (split //, $otp)   ) , "\n";

my $cipher = OTP( $otp, $message, 1 );
print "Ord(Cipher): ", ( map { ord($_).' ' } (split //, $cipher) ) , "\n";

print "Decoded    : ",  OTP( $otp, $cipher, 1 ), "\n";