Adding in a sample Perl script that interacts with MySQL