#!/usr/bin/perl -w

use strict;
use Crypt::DES;

#Need a 16 byte key
my $key = pack("H16", "0123456789ABCDEF");
my $cyp = new Crypt::DES $key;

#and an 8-byte plaintext
my $str = $cyp->encrypt("HelloWor");   
my $uncyp = new Crypt::DES $key;

print $uncyp->decrypt($str)."\n";