package My;
use fields qw(bar);
sub new {
    return fields::new(shift)
}
1;