my $flash = Wx::ActiveX::Flash->new( $parent_frame , -1 , wxDefaultPosition , wxDefaultSize );

  use Win32::OLE ;
  my $OLE = $flash->GetOLE() ;
 
  my $version = $OLE->Invoke('FlashVersion') ;
  ## or just:   my $version = $OLE->FlashVersion() ;
  
  print "$version\n" ;