Select Code to Download

use warnings;
use strict;
...
my %options;
GetOptions (\%options, 'IP=s');
print "$options{IP}\n" if exists $options{IP};

$ 901916.pl
$
...
$ 901916.pl -I 10.34.34.456
10.34.34.456
$