root-context/exec/vtop

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 ###############################################
   5 # vtop for slicestat by KyoungSoo Park
   6 ###############################################
   7
   8 open THIS_PIPE, "/usr/sbin/vtop bn1 |";
   9 while(<THIS_PIPE>) {
  10     print;
  11 }
  12 close THIS_PIPE;