Create emailScript.perl