#!/usr/bin/perl -wT
use strict;
my $conf = do ('G4 HD:Desktop Folder:perl:test:config.pl');
print $conf->{'var1'}, "\n";