H:\cvs>perl -e "  print 0 + '0755', ' ', 0755  "
755 493