#test.pl
#!/usr/bin/perl -w
use strict;

BEGIN { require "config/master.pl"; };
print $ok;

print "\n";


#config/master.pl
use vars qw( $Debug $Verbose $Email $DB );

$Debug   = 0;
$Verbose = 1;
$Email   = 'alice@example.com';
$DB      = 'DBI:pgsql';

$ok = "ok is okay";
;