my $dir = dir ('test1');