#!/usr/bin/perl

@the_dirs = (1, 2, 5, 7, 8, 10, 11, 13, 14, 15, 16, 20, 24, 25, 26, 28, 32, 35, 37, 38, 40, 41, 42, 44, 48, 50, 51, 56 );

foreach $dirnum( @the_dirs) {
	if( $dirnum < 10) {
		$dirname = "sep0".$dirnum;
	} else {
		$dirname = "sep".$dirnum;	
	}
	system("cd $dirname ; ../report_page.pl ; cd ..");
}

exit( 0);