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