my $bin = sprintf "%b", $dec;
my $dec = oct "0b$bin";