Perl在长线程上更新UI

Perl在长线程上更新UI