#!/usr/local/bin/perl -w

$n=1;
while ($n<55)
	{chdir ($n);
	 open(FILE, "$nall.html" >"$nfrall.html")
		or die "can't open $nall.html";
	 close(FILE);
	$n++;}