use strict;
use warnings;
use Crypt::RC4;

my $plaintext = "Der geheime Text";
my $passphrase = "Thomas";

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

print "originaltext\n$plaintext\n\n";
print "verschlüsselt\n$encrypted\n\n";
print "entschlüsselt\n$decrypt\n\n";[/quote]