#!/bin/sh

/sbin/iwconfig wlan0 2> /dev/null | perl -ne '/Link Quality=(\d+)/ and print "*" x (($1)/17)'
/sbin/ifconfig wlan0 | perl -ne '/addr:([^ ]+)/ and print " <$1>"'
/sbin/iwconfig wlan0 2> /dev/null | grep -v unassociated | perl -ne '/ESSID:"([^"]*)"/ and print " $1"; /Bit Rate:(\d+) ([^\/]+)/ and print "($1$2)"'