Select Code to Download

print "Enter IP Address:";
chop(my $ip = <STDIN>);
...
} else {
    print "no match: parsed $parsed <> input $ip\n";
}