print "Creating .\\ch9.log ...";
open STDOUT, ">ch9.log" or die $!;
	print Dumper data_for_path ('.');
close STDOUT;
print "Done!\n";