Select Code to Download

for($i=0; $i<@ARGV; $i+=2) {
    $ip   = $ARGV[$i+1] if $ARGV[$i] eq '-i' || $ARGV[$i] eq '--ip';
    $port = $ARGV[$i+1] if $ARGV[$i] eq '-p' || $ARGV[$i] eq '--port';
}

while(@ARGV) {
    $_ = shift @ARGV;
...
    $ip   = shift @ARGV if /-i/ || /--ip/;
    $port = shift @ARGV if /-p/ || /--port/;
}