Assuming you are able to access your database using Perl, this is a simple test, right? The scripts to do 1. or 2. are not much different really.