$DIR = '\\ax-risvis447\c$\calc';
print `dir $DIR`;