$data_file = Tkx::tk___getOpenFile(-parent => $mw, -filetypes => [['Data file', '.txt']],-initialdir => "$path\\work\\");
open(DATA_FILE, $data_file);
@data = <DATA_FILE>;
close(DATA_FILE);