system("/usr/bin/vmstat -m --libxo xml >$filename");
my $doc = XML::LibXML->load_xml(location => $filename);
foreach my $id ( $doc->findnodes('//memory')) {
system("/usr/bin/vmstat -m --libxo xml >$filename");
my $doc = XML::LibXML->load_xml(location => $filename);
foreach my $id ( $doc->findnodes('//memory')) {