use Win32::GuiTest qw( FindWindowLike
                       WMGetText );
    use strict;
    use warnings;

    my @whnds = FindWindowLike( undef, "^Fjalori elektronik shpjegues"
+ );
    if( !@whnds ){
        die "Cannot find window with title/caption Fjalori\n";
    }else{
        printf( "Window handle of calculator application is %x\n", $wh
+nds[ 0 ] );
    }
    

    my $edit_ctrl_id = 600; #Edit window, 258 Hex
    my @edit = FindWindowLike( $whnds[ 0 ], undef, "^AEditCtl32", $edi
+t_ctrl_id );
    
    if( !@edit ){
        die "Cannot find window handle for Edit control\n";
    }else{
        printf( "Edit window handle is %x\n", $edit[ 0 ] );
    }
    
    my $result = WMGetText( $edit[ 0 ] );
    print $result;