C:\test>type junk94.pl #! perl -slw use strict; use constant { OUT_DIR => 'out', OUT_FIELDSEP => '=', OUT_FILENAME => 'ks', OUT_SUFXSTOR => 'storable', VAL_MIN => 15, VAL_MAX => 3600, }; print <junk94 This program does this and that with the out. The filename is ks and the file suffix is storable. Fields are separated with the = character. Enter a value between 15 and 3600.