#!/usr/local/bin/perl
use warnings;
use strict;
use Crypt::CBC;
use Crypt::DES;         # give compile-time error if uninstalled
use Digest::MD5 qw/md5/;

my $cr = new Crypt::CBC ({ key => $ENV{PASSWD},
                           cipher => 'DES',
                         });
$cr->start('decrypting');
eval join '', (map {$cr->crypt(unpack 'u',$_)} <DATA>), $cr->finish;
__END__
H4F%N9&]M258,7+K!Y.>&R#R(9V'IHIQ/V38VIC%,U54_2EA%]]#L````
(C4$VS`4H"\T`
8`^Z3::)M9OZC2NJ6!C!."#\1T+4:?`DE
M98',<EH%[_U>_#TF-U;OHK<?^0Q'/$EKW,MRB;.Z(A@*7Q4?MCQ=;^!QF/B0
CR/)<\*6UC+0R3[P*L>Y+YF\C6WGV7E["2:=,PKE^;*[?M`@`
(TCPFK5[11M8`