lanx@nc10-ubuntu:~$ cat .perldb
sub afterinit { $DB::alias{ALIAS}='s/ALIAS/command/' }