add format_size

bindings/perl/Sigar.xs

@@ -132,6 +132,19 @@ DESTROY(sigar)
     CODE:
     (void)sigar_close(sigar);
 
+char *
+format_size(size)
+    UV size
+
+    PREINIT:
+    char buffer[56];
+
+    CODE:
+    RETVAL = sigar_format_size(size, buffer);
+
+    OUTPUT:
+    RETVAL
+
 char *
 sigar_fqdn(sigar)
     Sigar sigar