my $dir='c:\temp';