use warnings;
use strict;

use Config::Tiny;
my $cfg = Config::Tiny->read('test.txt') or die "Couldn't read file: $Config::Tiny::errstr";

for my $sect (values %$cfg) {
	my ($name, $version, $publisher) = map { $sect->{$_} } qw("DisplayName" "DisplayVersion" "Publisher");
	print "Name: $name\nVersion: $version\nPublisher: $publisher\n";	
}