sub Vmstat {
        $vmoutput_time = time;
        open (VMOUT, "$vmstat |");
        $vmoutput = <VMOUT>;
        close (VMOUT);
}

sub Cpustat {
        $cpuoutput_time = time;
        open (CPUOUT, "$cpustat |");
        @cpuoutput = <CPUOUT>;
        close (CPUOUT);
}

...

Vmstat ()
Cpustat ()