use locale;
sub file_dialog
 {
  my $parent = shift;
  my @types =( ['All files',         '*'],
               ['CSV files',      '.csv'],
               ['Excel files',    '.xls'] );
  my $value = $parent->getOpenFile( -filetypes => \@types, -initialdir => '.' );
  $value =~ s/\//\\/sgi;
  utf8::downgrade($value);
  unless($value eq '')
   {
    chdir(&get_path($value));
   }
  return($value);
 }

sub save_file_dialog
 {
  my ($parent, $filename) = @_;
  my @types =( ['Excel files',    '.xls'],
               ['All files',      '*.*' ] );
  my $value = $parent->getSaveFile( -filetypes => \@types, -initialdir => '.', -initialfile => $filename);
  $value =~ s/\//\\/sgi;
  utf8::downgrade($value); 
  return($value); 
 }