Select Code to Download

ip_address: 10.0.1.17
user: me

package Server;

...
around BUILDARGS => sub {
  # Load cfg file and set cfg attribute here
}

my $server = Server->new('config_file_name');
$server->get('ip_address');

sub BUILD {
  my $self = shift;
...
    $self->add_singleton_method( $prop => sub { $properties->{$prop}; 
+} );
  }
}