record my window

recordwin is a function
recordwin ()
{
recordmydesktop -windowid $(xwininfo | perl -ne 's/^xwininfo: Window id:
(\w+) .*/\1/ and print')
}