c:\test>perl -le"
my $n = oct( $ARGV[ 0 ] ); 
printf qq[As decimal: %d As octal: %o \n], $n, $n; 
" 0644

As decimal: 420 As octal: 644