package A;

use strict;

use fields qw(id name);

sub new {
 ...
}