in reply to Win32::OLE called by subroutine only workes once

Which method call triggers that error? 
ole->foo... or die $^E;

[download]

In Section Seekers of Perl Wisdom