BEGIN { if ( $^O eq =~ m/MSWin32/i ) { ... require Win32::OLE; Win32::OLE->import( qw{ in } ); } }