Select Code to Download

$ cat ~/.perldb
for (qw{pwd date ls ps}) {
    $DB::alias{$_}
        = 's{^($_.*)$}{chomp(my $out = qx{$1}); print {$DB::OUT} $out}
+e';
}

$ perl -d -e 1

...
  501 74528 74527   0 23Aug12 ttys007    0:00.04 -bash
  DB<7> q
$

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

$ perl -d -e 1

...
  DB<4> date "+%Y-%m-%d"
2012-09-09
  DB<5> q