use Config; my $file = "/somedir/somefile"; my $file_obj = Config->new($file); #### package Config; use strict; $VERSION = 0.1; $DEBUG = 1; # 1 Prints out debug information. sub new { my ($class) = @_; bless { _file => $_[1], }, $class; }