Help for this page
$sth = $dbh->prepare($sql) or Shop::print_error('could not connect to DB', $DBI::errstr);
#!/usr/bin/perl -T use strict; ... } 1; };