Select Code to Download

lanx@nc10-ubuntu:/tmp$ cat >tst.pl
$|=1;
...
  DB<100> n
2
main::(tst.pl:3):       print "$_\n";