#!/usr/bin/perl -w
use strict;
use File::Find;

my $dir = "C:\\data\\";

find(\&Do_Something, $dir);
sub Do_Something{
	if ( -f && /\.txt$/ ) {
		print "Doing Something $_ \n";
	}
}