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';
}