Select Code to Download

#!/usr/bin/perl -w
use strict;
...
server    1    10.1.1.1-10.1.1.5
server    2    192.168.1.1-192.168.1.5
server    1    192.168.1.1-192.168.1.2

$VAR1 = {
          'server_2' => [
...
                          '192.168.1.2'
                        ]
        };