#!/usr/bin/perl
use strict;
our ($x);
my $file = 'conf.pl';
unless (my $return = do $file) {
    warn "couldn't parse $file: $@" if $@;
    warn "couldn't do $file: $!"    unless defined $return;
    warn "couldn't run $file"       unless $return;
}
print "\$x is $x\n";

my $var_x=$x;

##########   config script (my.conf)
$x = 'abcdef';