#!/usr/bin/perl

use strict;
use warnings;

use vars qw($a);

my $file = 'conf.conf';
do $file
  or die "Can't load $file: $!\n";

print "a is $a\n";

exit 0;