#!/usr/bin/perl

$| = 1;
chdir('/');
print "\033[2J";

for (;;select '','','',0.04) {
	open(IN,"< /proc/vmstat") or die;
	$there = 0;
        print "\033[1;1H";
	@lines = ();
       	while (<IN>) {
		chomp;
		push(@lines,$_);
	}
	close(IN);
	$l = scalar @lines;
	$split = ($l + 1) >> 1;
	for ($i = 0;$i < $split;$i++) {
		if ($i + $split < $l) {
			printf("%-40s %s\033[K\n",$lines[$i],$lines[$i+$split]);
		} else {
			printf("%s\033[K\n",$lines[$i]);
		}
	}
	print "\033[0J";
}