my $file = Win32::GUI::GetOpenFileName(
   -owner  => $Window,                 # Main window for modal dialog
   -title  => "Open an image file",    # Dialog title
   -filter => [                        # Filter file
      'JPG file (*.jpg)' => '*.jpg',
      'All files' => '*.*',
     ],
   -directory => ".",                  # Use current directory
                   );