Select Code to Download

Select or download this

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

Select or download this
```
chomp($ipbase = <STDIN>);
```
Select or download this
```
$ipbase = <stdin>;
chomp ($ipbase);
```

Select or download this

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

Select or download this
```
open(INFO,">$downreport");
```

Select or download this

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

Select or download this

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

Select or download this

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

# etc....

Select or download this

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

Select or download this

$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)");