#!/usr/bin/perl
BEGIN { 
  use Config::Std; 
  read_config "main.conf" => my %config;
}