mysqlhotcopy faltando no FreeBSD

Recentemente, após algumas migrações, precisei do script mysqlhotcopy pra "backupear" algumas bases de dados e eis que não encontrei-o na instalação que fiz no FreeBSD.

Por algum motivo qualquer ele não é instalado. Mas para resolver é simples:

You could go back into the ports directory and extract the sources, then go into them and locate the script.
Like:

cd /usr/ports/databases/mysql50-server ;
make extract ;
cd work/mysql-5.0.51a/

it should be in the scripts/ folder.
Copy it to a location of choice.

Then just go back to /usr/ports/databases/mysql50-server and either

make clean (remove what you buildt/extracted)
or
make distclean (remove downloaded sources and the above including related software).

Fonte:
http://www.freebsdforums.org/forums/showthread.php?t=39319

Fui testar e:

/usr/local/sbin/mysqlhotcopy: Command not found.

A primeira linha do arquivo é:

#!@PERL@ -w

Não sei se é pra ser um variável que aponta pro binário do perl ou não... Mas sei que não funcionou. Logo, troquei por:

#!/usr/bin/perl -w

Aí rodou!!! Mas faltou um módulo chamado BDI. Logo apareceu a mensagem:

Can't locate DBI.pm

Fui instalar:

perl -MCPAN -e shell
install DBI

Beleza.
Funcionou novamente! Porém no momento em que ia ser executada a cópia eis que surge o seguinte:

install_driver(mysql) failed: Can't locate DBD/mysql.pm

Óbvio faltava o suporte ao driver mysql.
Fui instalar:

perl -MCPAN -e shell
install DBD::mysql

Porém, como diz a documentação do site do Mysql sobre instalar os módulos perl, no momento da instalação do módulo ele vai tentar conectar ao mysql usando usuário root e senha em branco. Mas como eu já tinha alterado a senha do root pode-se ver várias linhas de acesso negado na tentativa de conexão ao banco. Devemos forçar a instalação de qualquer maneira. Para isso ao invés de install DBD::mysql usa-se force install DBD::mysql.

This is the end!