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