Select Code to Download

open (FILE, "+> $fullpath/$dir/$filename")|| die "cant open file";
print FILE "#stored_email\n";
...
print FILE "\$SECRETARY_EMAIL = \'$SECRETARY_EMAIL\';\n";
close FILE;
}