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

my $line1 = pack 'a32', '';
my $line2 = pack 'a32', 'some secret data';
my $enc1 = RC4('password', $line1);
my $enc2 = RC4('password', $line2);
my $xor = $enc1 ^ $enc2;
print "Result: $xor\n";
__END__
Result: some secret data