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