#!/usr/athena/bin/perl

$_ = `du /mit/mkgray/".*"/lists`;
split;
$x = int($_[0]);
if($x>30)
{
	print("Something large in ~/.*/lists! Current du size: $x\n");
}
else
{
	print("~/getdate/lists still small. ($x)\n");
}