#!perl
use strict;
use warnings;
use Config::IniFiles;
my $cfg = new Config::IniFiles(-file => "c:/windows/system/oeminfo.ini" );
my $make = $cfg->val('general', 'Manufacturer');
my $model = $cfg->val('general', 'Model');
print "Make: $make\n";
print "Model: $model\n";