$table{testsub1}=sub {...};
create_input_window('Test1',$table{testsub1});