Perhaps this (edit: undef $ppt;) just kills PP as opposed to shutdown/close?
In reply to Re^3: Win32::OLE freezing Tk by bliako in thread Win32::OLE freezing Tk by Takamoto