Perl : 二进制(binary)字符串转十进制数(octal)

#!/usr/bin/perl
use strict;
use warnings;

my $bin = "11110000";
my $oct = oct("0b".$bin);