$OutFile=shift(@ARGV); $InStr=shift(@ARGV); @Tmp=split('_',$InStr); $Chapter=shift(@Tmp); $Level=shift(@Tmp); $LevelDir =$Chapter/\$Level; # printf("I got\n0: $OutFile\n1: $InStrn\n"); # printf("Chapter = $Chapter\n"); # printf("Level = $Level\n"); # printf("LevelDir = $LevelDir\n"); $OutFile=">$OutFile"; open(OutFile) || die "Can't create makefile $OutFile; $!"; print OutFile <