#Trying to get default values working here -- still working on it

##</code><code>##

chomp($ipbase = <STDIN>);

##</code><code>##

$ipbase = <stdin>;
chomp ($ipbase);

##</code><code>##

#I would like to find a way to turn off echo or mask this portion
print "Password:";
$password = <stdin>;

##</code><code>##

open(INFO,">$downreport");

##</code><code>##

open INFO, '>', $downreport or die "Cannot open $downreport:$!\n";

##</code><code>##

open my $info, '>', $downreport or die "Cannot open $downreport:$!\n";

##</code><code>##

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....

##</code><code>##

sub get_user_input {
    my $prompt = shift;
    print "$prompt\n";
    return chomp(<STDIN>)
}

##</code><code>##

$ipbase = get_user_input("What is the base IP? (Example: 192.168.1)");
$ipcurrent = get_user_input("What is the bottom IP? (Default 1)");
$ipend = get_user_input("What is the top IP? (Default 255)");