use warnings;
use strict;
my ($scalarone,$scalartwo,$scalarthree,$scalarfour,$scalarfive,@arrayone,@arraytwo,%hashone);
use lib("/tmp");
do "config.cfg";
print << "PRINT";
########################################
Scalarone is
$scalarone
########################################
Scalartwo is
$scalartwo
########################################
Scalarthree is 
$scalarthree
########################################
Scalarfour is
$scalarfour 
########################################
scalarfive is
$scalarfive 
########################################
Arrayone is
@arrayone
########################################
Arraytwo is
@arraytwo
########################################
Hashone one is
$hashone{ONE}
Hashone two is
$hashone{TWO}
Hashone three is
$hashone{THREE}
Hashone four is
$hashone{FOUR}
Hashone five is
$hashone{FIVE}
########################################
PRINT