use Socket;

my $n32 = inet_aton("192.168.254.0");
print inet_ntoa(pack("N",unpack("N",$n32)-1));  # "192.168.253.255"