Select Code to Download

use warnings;
use strict;
...
while (my ($var,$val) = each %{ &e }) {
      print "(ref)  $var=$val\n";
}