#!/usr/bin/perl

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

for (;;select '','','',0.02) {
	open(IN,"< /proc/buddyinfo") or die;
	$there = 0;
        print "\033[1;1H";
	@lines = ();
       	while (<IN>) {
		chomp;
		print "$_\033[K\n";
	}
	print "\033[0J";
}