Help for this page
my $filename = OpenGialog( ... );
use threads; use threads::shared; ... DoOneEvent( 1 ) until $filename; ## use $filename