$ perl /tmp/db.pl 
--8<--
DBI:mysql:database=pl_test:host=kaiser.von.china:port=3307
--8<--
connect failed: Unknown MySQL server host 'kaiser.von.china' (1)
--8<--
DBI:mysql:mysql_compression=1
        :pl_test
        :kaiser.von.china
        :3307

--8<--

do executed.