sub BothStat {
          $cpuoutput_time = time;
          $vmoutput_time = time;
          open (VMOUT, "$vmstat |");
          open (CPUOUT, "$cpustat |");
          @cpuoutput = <CPUOUT>;
          $vmoutput = <VMOUT>;
          close (CPUOUT);
          close (VMOUT);
}