use File::Find;

find( \&wanted, "C:" );

my @st = stat "C:bar.txt";

##</code><code>##

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
Binary build 819 [267479] provided by ActiveState