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

$passphrase = "rumpelstiltskin";

$plaintext= qw(qqq"""""""''''''';;;;;qwweeerrrtttyyyy); 
 
$encrypted = RC4( $passphrase, $plaintext ); 
$decrypt = RC4( $passphrase, $encrypted ); 
 
print "$plaintext\n$encrypted\n$decrypt\n";