Create WriteAll.pm