$ perl -wle'
use DBI;
my $dbh = DBI->connect(
"dbi:mysql:mysql_compression=1:battie_test:kaiser.von.china:port=3306",
"foo", "foo");'
DBI connect('mysql_compression=1:battie_test:kaiser.von.china:port=3306','foo',...)
failed: Unknown MySQL server host 'kaiser.von.china' (1) at -e line 3
$