use strict;
{
	package My;
	use fields qw[ one  ];
	sub new {
	   return fields::new(shift);
	}
}
my  My $my = new My;
$my->{one}++;