JavaBean Example: TestBean.pl

    use Win32::OLE;
    
    $objBean = new Win32::OLE("BeanDemo.Bean") or
        die "Couldn't create COM object: $!\n";
    
    # Display a Frame object.
    $f = $objBean->makeFrame;
    $f->setSize(200, 200);
    $f->addWindowListener( $objBean->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;
    }