$m_file->command(-label   => "test",
                 -command => [\&file, "test"],
                )->pack();