#!/usr/bin/perl
use strict;
use warnings;

use File::Find;

find(\&wanted, 'C:\\Temp\\something');

sub wanted {
    print "$_\n";
    print "$File::Find::name\n";
}