# 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;