Select Code to Download

[jconner@kwan ~]$ cat celldata | perl -d code.pl
Default die handler restored.
...
main::(code.pl:9):      while ($para = <>) {
  DB<1>
main::(code.pl:11):         my @lines = split(/\n/, $para);

  DB<1> print $para
main::((eval 26)[/usr/local/lib/perl5/5.6.0/perl5db.pl:1510]:2):
...
Tariff Switch Indicator: 0
SS Code: NULL
ICI Ordered: NULL

  DB<2>
main::(code.pl:13):         if (@lines == 1) {  # A heading
...
main::((eval 27)[/usr/local/lib/perl5/5.6.0/perl5db.pl:1510]:2):
2:      print scalar @lines;
49

  DB<3>
main::(code.pl:18):         if ($lastHeading eq "MSTerminating") {
...
Use of uninitialized value in string eq at code.pl line 18, <> chunk 1
+.
main::(code.pl:9):      while ($para = <>) {
  DB<3>

Debugged program terminated.  Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.
  DB<3>

#!/usr/bin/perl -w
use strict;
...
    }
    }
}