open (FILE, "+> $fullpath/$dir/$filename")|| die "cant open file";
print FILE "#stored_email\n";

print FILE "\@email\=\(\'";
foreach $line($all_email)
{
print FILE "$line";
}
print FILE "\'\)";

print FILE "\$SECRETARY_EMAIL = \'$SECRETARY_EMAIL\';\n";
close FILE;
}