use file::find
find('*.txt',.,&doSomething);
sub doSomething(
my $fn = $_;
open (YADA,$F "<");
)