Update:
As it has been mentioned , this does not work in many situations, please ignore my stupid ramblings .. the simple way ..

use strict;

my $ip = '1.2.3.4';
my @ip = split(/\./,$ip);

$ip[3]++;

print join('.',@ip) , "\n";
[download]