sub server {
    my $self = shift;
    ...
}