Hope this helps - cheers - L~R

# myprog.config
%authinfo = (
  user => 'password',
  user2 => 'password2',
);
# end of myprog.config


#!/usr/bin/perl
#
# myprog.pl - configured by file 'myprog.config'

use strict;
use warnings;

our %authinfo;
do 'myprog.config';

print "$_:$authinfo{$_}$/" for keys %authinfo;
[download]

but recently i've let Config::General handle my configuration needs.

You mean you rather use a wrapper of some sort available from CPAN?

()-()
 \"/
  `

use YAML;
my @pwlist = Load(join '', <DATA>);

# Print as perl structure
use Data::Dumper;
print Dumper(\@pwlist);

__DATA__
# comments ignored
user: test
passwd: prrft5142
---
user: fred
passwd: fredpw
[download]

$VAR1 = [
          {
            'passwd' => 'prrft5142',
            'user' => 'test'
          },
          {
            'passwd' => 'fredpw',
            'user' => 'fred'
          }
        ];
[download]

I'm partial to Parse::PlainConfig myself. Lightweight, easy to use.

LAI
:eof

package MY::Conf;
#No directories or URLs end in "/"
our %var;

#################################

$var{DATA_DIR} = "Zephir/data";
$var{CONF_DIR} = "Zephir/conf";
$var{AVATAR_DIR} = "images/buttons";
$var{AVATAR_URL} = "/images/buttons";
$var{TMPL_DIR} = "Zephir/tmpl";
$var{HOME_PAGE} = "http://asdf.net/";
$var{HOSTNAME} = "asdf.net";
1;
[download]

-caedes

This page is intentionally left justified.

my $userid;
my $password;
while(<DATA>) {
    next if /^ *#/;
    ($userid, $password) = split / *= */;
    $userid =~ s/^ +//;
    $userid =~ s/ +$//;

}
print "$userid:$password\n";
__DATA__
 #user=passwd
test = prrft5142
[download]

use Data::Dumper;
my %ids=map {
        chomp; #Get rid of the \n
       (split(/=/))[0,1] 
    }   grep( !(/^\s*#/||!/=/),
                  <DATA>);
print Data::Dumper->Dump([\%ids]);
exit;
__DATA__
#user=passwd
test=prrft5142
tester=foo
   #This is a comment
foo
[download]