@types =( ['All files',         '*'],
          ['CSV files',      '.csv'],
          ['Excel files',    '.xls'] );
$value = $parent->getOpenFile( -filetypes => \@types, -initialdir => '.' );
print ord($_).':' for(split(//,$value));
print "\n";
$value = encode("iso-8859-1", $value);
print ord($_).':' for(split(//,$value));
print "\n";