Select Code to Download

use strict;
use warnings;
...
print $g->()."\n"; #would be 'g300', that's ok
$r = 500;
print $g->()."\n"; #would be 'g500'

use strict;
use warnings;
...
print $g->()."\n";  # '0: g300'
$r = 500; $i = 10;
print $g->()."\n";  # '10: g500'