#!/usr/local/perl -s
eval "exec perl -s -S $0 $*"
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

#   locate deactivated and misplaced users on post office

$spool = "/usr/spool/pop";

if (! -e $spool) 
{
	die "$spool does not exist!\n";
}
opendir(SPOOLDIR, $spool);
@directory = readdir(SPOOLDIR);
closedir(SPOOLDIR);

foreach (@directory) 
{
	if (/.map/) 
	{
		next;
	} 
	
	if (/.temp/)
	{
		next;
	}

#	if(system("hesinfo", $_, "pobox"))
	if(system("/usr/local/gstat", $_))
	{
		print $_, "\n";
	}
}

exit 0;