I've now included a method to check that the file is opened successfully, and so prevent silly typos like above.

#!/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";
[download]