my $dir=system(dir);