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