#!/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;
{
	local @ARGV = @files;
	while(<>)
	{
		print $_;
	}
}