#!  /bin/sh
XWINFO=`xwininfo | perl -ne '/Window id: (0x[\da-z]+)/ and print $1'`
echo "#################################"
echo $XWINFO
while [ 1 ]
do
    date
    xwininfo -id $XWINFO | grep 'Width\|Height'
    sleep 1
done