use Net::IP qw(:PROC);
                                                                                                                                                 
my $intaddr = 167772419;
my $binaddr;
eval{
     $binaddr = ip_inttobin($intaddr);
};
die "Error: $@" if($@);

!defined($binaddr) and print "Binary not defined\n";
print "Binary value of integer $intaddr: $binaddr\n";