I tried your code and got this error at this line

 $start = inet_ntoa($start);
[download]

the error output is :
Bad arg length for Socket::inet_ntoa, length is 10, should be 4 at ipconsnew.pl line 16, <INPUT> line 1.

I am working on ActivePerl on Windows NT .. Am I doing anything wrong ??