my $number = "12345";
my $bin_number = unpack("B32", pack("N", $number));
print "$number in binary is $bin_number\n";