c:\test>perl -le"my $n = oct( $ARGV[ 0 ] ); print 1 + $n; " 0644
421