|Welcome to the Monastery|
I was just reluctant to ask you to do it because it's too much like spoonfeeding.
The whole point of this place is to help people learn, so never be reluctant to ask questions. You'll occasionally garner a few downvotes from those who've forgotten that they also 'didn't know' at some point in the past. But as XP is worth less than the energy it takes to click a vote button, don't sweat it.
And most of us here are happy to answer questions.
If you think you can enlighten my about how to do this in a couple of comments added to the above code and add the code for generating a widget based on specific strings printed to the original script's STDOUT, that'd be great.
I don't add comments up front because: a) it is a lot of extra effort to do well, which all too often is wasted when the OP chooses someone else's solution; b) I don't know what level the questioner is at -- what bits they might need explaining and what not -- and trying to explain everything is impossible. I'd need to replicate the 100,000+ lines of the Perl documentation, and risk patronising you along the way with detailed explanations of stuff you already understand.
So, enough meta discussion. Which bits of the code I posted need further explanation? You said you had some experience of TK, so I don't want to waste time explaining stuff you understand.
How about we abandon this subthread, and you post a few questions as a direct reply to the code I posted and we go from there.
(ps. Have you actually tried just adding the 3 lines to your existing script and putting the module in the local directory, just to see how that works?)
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.