use strict;
use warnings;

opendir (D,"."); #current working directory
while (my $f = readdir(D)) {
	next unless -T $f; #only textfiles
	print $f,"\n";
	open (F, $f);
	while (<F>) {
		print;
	}
}