#!/usr/bin/perl -w
use strict;
require "subs.pl";

# declare and define config
my %CONFIG = ('key' => 'value');

##</code><code>##

sub test { print $CONFIG{'key'}; }
1;