Thanks Ken, your solution works.
In reply to Re^2: Perl Tk nonblocking by rjbuckley in thread Perl Tk nonblocking by rjbuckley