Select Code to Download

use strict;

...
  my $t = 42;
  print "$t\n";
}

  DB<1> w $t
  DB<2> c
...
    old value:  '15'
    new value:  ''
Debugged program terminated.

  DB<1> w $t
  DB<2> c
...
    old value:  '15'
    new value:  ''
Debugged program terminated.