$ perldoc Tk::getOpenfile