my @text;
my $rc2 = qx"$size $exe |grep main ";
#print $rc2;
-print $size;
+#print $size;
@text = split(' ', $rc2);
print "<metrics>\n";
print " <ram>";
print $text[1];
-print "<ram>\n";
+print "</ram>\n";
print " <flash>";
print $text[0];
-print "<flash>\n";
+print "</flash>\n";
print " <stack>";
print $text[2];
-print "<stack>\n";
+print "</stack>\n";
print "</metrics>\n";