Select Code to Download

        my %do_for = (
            get_hosts => GetHosts($_, \%data),
...
        if ( ! $do_for{$what_to_do} ) {
            warn "ERR - what to do $what_to_do";
        };

sub GetHosts {
    my ($line, $ref_data) = @_;
...
        my $ref_data->{$old_ip}{"new_ip"} = $new_ip;
    }
}

here GetHosts - $VAR1 = {};

...


Can't use an undefined value as a HASH reference at ./fw-rule-convert.
+pl line 65, <$IN_FH> line 1.