#! perl -slw
use strict;
use Data::Dump qw [ pp ];

our $folder;  #to prevent "only used once" warnings
our $config;

do 'work.conf' or die $!;

print $folder; # $folder is declared above, here in $main
               # not in file work.conf
               # since we are in main, don't need "full name"

pp $::config;  #can use full name here, but not necessary