if (! $CAL_FILE) {
# print "the CAL_FILE variable is not set.\n";
# print "defaulting it to a value that probably does not suit you.\n";
if (! $CAL_FILE) {
# print "the CAL_FILE variable is not set.\n";
# print "defaulting it to a value that probably does not suit you.\n";