tk_getopenfile - PERL - WINDOWS

Hello,

Using AS PERL v5.12 on Windows XP. Trying to use the tk_getopenfile with a file types list. If I specify a default extension and intialfile type I can see those types of files if they exist. If I select a different file type from the pull down, the files all disappear and nothing shows up matching the selected file type even when they exist. Is there a bug?

here is a code snippet:

my $types = [ ['CSV files', ['.csv']],
		  ['ZIP files', ['.zip']],
		  ['ALL files', ['*']],
		];

$filelist = Tkx::tk___getOpenFile(-multiple => 1, -title => "Open a CSV File",
				      -defaultextension => '.csv',
				      -initialfile => '*.csv',
				      -filetypes => $types,
				      -initialdir => 'c:\temp',
				      ); 

Thanks,
gary