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

$passphrase = "rumpelstiltskin";
                           
open (FH,"< /etc/passwd") or die $!;
while(<FH>){
$file .= $_ }
close FH;
                           
$plaintext= $file;

$encrypted = RC4( $passphrase, $plaintext );
$decrypt = RC4( $passphrase, $encrypted );

print "$plaintext\n$encrypted\n$decrypt\n";