Select Code to Download

        print "DEBUG: get_host: " . GetHosts($_, \%data) . "\n";
        print "DEBUG: get_new_fw: " . GetNewFWRules($_, \%data) . "\n"
+;
...
        );
        #print "while\n";
        print "DEBUG: do_for: " . $do_for{$what_to_do} . "\n";

sub GetHosts {
....
    return 1;
}