my $ip = '255.255.255.255';
my $binary = pack "CCCC",  split/\./, $ip;