Select Code to Download

x=5; y=7;
PUT DATA (x,y);

x=5 y=7

use Data::Dumper;
sub show {
...
  $SHOW::expr . ($@ ? " throws exception: $@" 
                    : ('='.Dumper($SHOW::expr)));
}