sub scan {
  $ret = `iwlist $wiface scanning`;
  my %ap;
  my @aps;
  for $line (split(/Cell/, $ret)) {
    if ($line =~ m/Address:(.*)/) {
      $ap{'bssid'} = $1;
    }
    if ($line =~ m/ESSID:"(.*)"/) {
      print "setting $1\n";
      $ap{'essid'} = $1;
    }

    $aps[$#aps+1] = %ap;
  }
  return @aps;
}