MS Java/ActiveX Example: TestCtrl.pl

    use Win32::OLE;
    
    $objJavaCtrl = new Win32::OLE("PerlInside.JavaControl") or
        die "Couldn't create COM object: $!\n";
    
    $f = $objJavaCtrl->makeFrame;
    $f->setSize(200, 200);
    $f->addWindowListener( $objJavaCtrl->makeHandler );
    $f->show;
    
    # Wait until the window stops being visible.
    use Time::HiRes qw(usleep);
    $microseconds = 10_000;
    while (1) {
        exit if !$f->isVisible;
        usleep $microseconds;
    }