Add perl file.
Update mode.