My first attempt to use perl, mysql and the DBI/x modules