($cwd=`cd`) =~ s/^.://; print "ROOT=$cwd";