print "What is the base IP? (Example: 192.168.1)\n";
$ipbase = <stdin>;
chomp ($ipbase);

print "What is the bottom IP? (Default 1)\n";
$ipcurrent = <stdin>;
chomp ($ipcurrent);

print "What is the top IP? (Default 255)\n";
$ipend = <stdin>;
chomp ($ipend);

# etc....