new layout - make room for slice-space stuff

[vsys-scripts.git] / root-context / exec / vtop

diff --git a/root-context/exec/vtop b/root-context/exec/vtop
new file mode 100755 (executable)
index 0000000..00e44c0
--- /dev/null
+++ b/root-context/exec/vtop
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use strict;
+
+###############################################
+# vtop for slicestat by KyoungSoo Park
+###############################################
+
+open THIS_PIPE, "/usr/sbin/vtop bn1 |";
+while(<THIS_PIPE>) {
+    print;
+}
+close THIS_PIPE;