Help for this page
encrypt(join("\n", @$input), $key)
... ... } else { print decrypt($input, $key); }
$ diff -au a.pl <( perl a.pl -d <( perl a.pl -e a.pl key ) key ) $