Decimal to Binary Conversion in Perl

$binstr = dec2bin(54);
print "$binstr";

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    $str =~ s/^0+(?=\d)//;   # otherwise you'll get leading zeros
    return $str;
}