$ perl -le'print 0744'
484