#!/usr/bin/perl
use Crypt::RC5;

$key = 'e726f4a56b3e4f';
$rc5 = new Crypt::RC5($key, '12' );

open (FH,"< /etc/passwd");
while(<FH>){
$file .= $_ }
close FH;
print "$file\n";


$cipher = $rc5->encrypt($file);

$rc5d = new Crypt::RC5($key, '12' );

$plain = $rc5d->decrypt($cipher);

print "$plain\n";