BEGIN {
my @fields = qw/field1 field2/;
use fields @fields;
}
my $self = fields::new;
$self->{field1} = 'value1';