Help for this page
$::My::Package::{$attributeScalar} = sub {...};
use vars qw(%user_methods); %user_methods = ( ... }; }; };
for my $i (0..1) {