Select Code to Download

use strict ;
use warnings ;
...

print "\n", Dumper( tied( %test )->export( { unbless => 1 } ) ) ;

use strict ;
use warnings ;
...

print "\n", Dumper( $test->export( { unbless => 1 } ) ) ;

$VAR1 = {
          'L1_counter1' => 1,
...
          'L1_counter1' => 2
        };