#!/usr/bin/perl

use strict;
use warnings;

my @handle;
# line number
my $c = 0;
my $line;
my $first = 0;
my $sep = $/;
my @parts;

        open DMI, 'dmi' or die $!;
        # dispose first four lines
        $. = 0;
        while ( $. <= 4 ){
                $line = <DMI>;
        }

        # Start actual parsing
        $/ = 'Handle';
        while( <DMI> ){
                $c++;
                unless ( $first ){
                        $first = 1;
                        next;
                }
                parse($_);

                exit;
        }

# parses the handle multi line values
sub parse{
my @parts;
my $line;
        @parts = split("\n", $_, 3);
        dmi($parts[0]);
        name($parts[1]);
        data($parts[2]);
}

sub data{
my @parts;
        #print @_;
        @parts = split( /:/, $_[0]);
        print "\n" . 'size of parts: ' . $#parts . "\n";       
}
sub dmi{
        return 0;
}

sub name{
        return 0;
}