sub method {
    my ($self) = @_;
    print ref($self), "\n";
}