package Foo;
use fields qw(foo);
sub new {
    return fields::new(shift)
}
1;