#!/usr/bin/perl
  use Crypt::OTP;
  use strict;

my $pad = "ABC";
my $mes = "BAD";

my $cip = OTP("$pad", $mes, 1);

print "Key    | $pad |\n";
print "Message| $mes |\n";
print "Cipher | $cip |\n";