&colstat;
sub colstat
{
my $i=0;
while($i<=10){
my $psout = '/my/long/path/memOut.txt';
my $vmstatOut = '/my/long/path/vmstatOut.txt';
system("date >> $vmstatOut");
system("vmstat 2 2 >> $vmstatOut");
system("date >> $psout");
system("ps auxw | grep -v grep >> $psout");
$i++;
}
}