$ perl -le ' print oct shift ' 0700
448

$ perl -le ' print 0700 '
448