#!/usr/bin/perl -wT
use strict;
my $conf;

unless ($conf = do ('G4 HD:Desktop Folder:perl:test:conf.pl')) {
  die ("Could not open file");
}

print $conf->{'var1'}, "\n";