use Tie::IxHash; use Config::General; tie my %conf, 'Tie::IxHash'; %conf = ParseConfig(\*DATA); for (keys %conf) { my $output = eval "$conf{$_}"; print "$_: ", $@ ? "$conf{$_} - $@\n" : "$output\n"; }