Select Code to Download

#! /usr/bin/perl

...

undef $/;
print $cipher->encrypt(<>);

#! /usr/bin/perl

...

undef $/;
print $cipher->decrypt(<>);