sub new{
    my ($class, @arg) = @_;
    my %arg = @arg;
    ...
}