In reply to Re^3: perl/tk show script progress by swoop in thread perl/tk show script progress by swoop