Simple Perl script for basic website folder hierarchy