use Win32::OLE qw( with );
with( $eye , qw! Offline 1 Visible 1 ! );