#!/usr/bin/perl

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

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