Create write.pl