package socket; use strict; use IO::Socket; use conf; use irc; my $conf = load conf; #### package conf; use strict; use irc; my %conf; sub load { my $proto = shift; my $self = ref($proto) || $proto; my $this = \%conf; bless($this, $self); return $this; }