#!/usr/bin/perl
use strict;
use warnings;
use Crypt::Tea_JS;

my $key = '0123456789ABCDEF0123456789ABCDEF';
my $plaintext = 'hello world';
my $ascii_cyphertext = &encrypt ($plaintext, $key);
print "\n$ascii_cyphertext";