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