#!/usr/bin/perl -w system("mkdir output_site"); for ($j = 0; $j < 16; $j++) { system("mkdir output_site/$j"); } system("mkdir output_off"); for ($j = 0; $j < 16; $j++) { system("mkdir output_off/$j"); }