$ perl -wle'
use DBI;
my $dbh = DBI->connect(
"dbi:mysql:mysql_compression=1\n:battie_test\n:kaiser.von.china:port=3306",
"foo", "foo");'
$