Perl Simple Gallery Generator