my $hex="0x3cb37140";
my $num=oct($hex);
print "$num\n";