Select Code to Download

lanx@nc10-ubuntu:$ cat .perldb
sub afterinit {
  $SIG{"__WARN__"}= sub { print "$_[0]"; $DB::single=1 };
}