my $dir = 'd:/temp';