my $dir = "location of your file directory";
my $filename = "the location & name of your new file";

open (LOGFILE, ">$filename") or die "Can't create logfile: $!";

opendir (DATADIR, $dir) or die "Can't open $dir: $!";

while( defined ($file = readdir DATADIR) ) {
	next if $file =~ /^\.\.?$/;
	open (INFILE, "$dir\\$file") or die "Can't open $dir: $!";
		print LOGFILE "$file|";
		$/ = '';
	while (<INFILE>) {
		@lines = $_;
			}
foreach (@lines) {
			print LOGFILE $_;
}
		}
close (INFILE);