#!/usr/bin/perl -w

use strict;
use vars qw($file);

$file = $ARGV[0];
open(CONF,$file) || die("$!: $file");
while(<CONF>) {
... code for parsing and storing config ...
}
close(CONF);
... more code for doing other stuff ...