You may want to look into this code and get some input how to define a desk size
sub get_disksize {
my $disksize = -1;
my $parser = XML::LibXML->new();
eval {
my $tree = $parser->parse_file(Opts::get_option('filename'));
my $root = $tree->getDocumentElement;
my @cspec = $root->findnodes('Virtual-Machine-Spec');
foreach (@cspec) {
$disksize = $_->findvalue('Disksize');
}
};
return $disksize;
}