sub mysql_connect {
%attr = ();
my $db = DBI -> connect("DBI:mysql:mysql_compression=1:$databasename:$dbserver:$dbport", "$dbusername", "$dbpassword", \%attr);
return $db;