#!/usr/bin/perl
# Fájlok tartalmának kiírása

use File::Find;

my $dir = "data";


find(\&csinal, $dir);

sub csinal
{
	print $_ . "\n";
}