perl -e " $img = 'images';$dir = '\"C:/Local Publish/'.$img.'\"'; system qq(dir $dir  )"