Select Code to Download

#!/usr/bin/perl

...
    my $value2 = $d2->Dump;
    print "\nvalue2: $value2\n";
}

value2: @main::value = (
                 4
               );