Perl practice program for storing items in a MySQL database.