#!/usr/bin/perl
# Fájlok tartalmának kiírása
chdir ("data") or die "$!";
opendir (DIR, ".") or die "$!";
my @files = grep {/.*\.txt/} readdir DIR;
close DIR;
foreach my $file (@files)
{
	open(FILEH,"$file") or die "$!";
	while(<FILEH>)
	{
		print $_;
	}
	close(FILEH);
}