use A;
my $a = A->new;