my $self = {}; bless $self;

$self->config;

sub config {
  my $self = shift;  
}