$ cat ~/.perldb
$DB::alias{$_} = 's{^$_(.*)$}{p qx{$_$1 | xargs echo -n}}' for qw{pwd date};