use strict; use DBI qw(:sql_types); use Data::Dumper;