use Cwd 'chdir';# Explicitly export Cwd::chdir  (will maintain $ENV{PWD} )
my $dir = getcwd();#exported from Cwd by default


use File::Find;

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

chdir $dir;

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