$ perl -e 'my $x=eval "016"; print $x,"\n"'
14
$