#!/usr/bin/perl

for ($i = 1; $i < 31; $i++) {
	$morn="april".$i."am";
	$night="april".$i."pm";	

	system("mkdir $morn");
	system("mkdir $night");
}