Create dir.pl