## test.pl
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Stuff::Config ();

my $c = &Stuff::Config::config("some_file.cfg");

print Dumper($c);

__END__


## Stuff/Config.pm
package Stuff::Config;
use strict;

sub config {
  my ($setup_file) = @_;
  my %c;
## do something with the setup file?
  %c = (
    some  => "config",
    stuff => "in here",
    var1  => "x",
    var2  => "y",
  ); 
  return \%c;
}

"not a 1";