#!/usr/local/bin/perl
while(1)
{
	$aps = `wicontrol -i wi0 -L`;
	chomp($aps);
	$aps =~ s/.*Available //s;
 	print `date`, "\cG\cG\cG$aps" if $aps ne "APs:";
	sleep 1;
}