Perl Encryption/Decryption Program

Write a program in Perl that can do encryption and decryption of text. An example of encryption is that "a" becomes "z", and "b" becomes "y" and so on, or whatever shifting algorithm you can devise. The input file is any readable text file that is to be encrypted. When this input file is run against the encryption program, it encrypts the file with your encryption algorithm and saves the processed file to an encrypted file with same file name but with an extension of ".enc". When you run the decryption program, it reads the encrypted file and decrypts (or reverses) it and saves it to same filename but with an extension of ".dec" which stands for decrypted file. For example: The given input file is [login to view URL] To run the encryption program: ./[login to view URL] [login to view URL] Its output will be: [login to view URL] To run the decryption program: ./[login to view URL] [login to view URL] Its output will be: [login to view URL] If you view the content of [login to view URL], it is not understandable. If you view the content of the [login to view URL], it should be the same as the [login to view URL] ============================================================ Please comment your code.