Select Code to Download

{
  var1 => "one",
  var2 => "two"
}

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

# Use of uninitialized value in print.
File 'G4 HD:Desktop Folder:perl:test:test.pl'; Line 6