Select Code to Download

#!/usr/bin/perl -w
use strict;
...
warn Dumper $test;
$test->n2;
warn Dumper $test;

$VAR1 = bless( {}, 'Test' );
In do_n2() $s = Test=HASH(0x861360)
...
                 'n' => 3,
                 'n2' => 5
               }, 'Test' );