removed 1; ... no support for use as a reuired file in perl