Help for this page
#!/usr/local/bin/perl -w ... untie *CIPHER; # and close buffer return $encrypted; }