#! /usr/bin/perl -w
use strict ;
use vars qw( $foo ) ;

do "conf.pl" ;
print "foo is $foo\n" ;