Perl script to generate and restore the permissions of folders and files in Linux.