Select Code to Download

my $row = 0;

$host_info_REF->{$row}->{$key} = $tmp->{$key};

$host_info{$row}{$key} = $tmp->{$key};

#!/usr/bin/env perl

...
}

print Dumper \%host_info;

$ pm_thr_compdat.pl
$VAR1 = {
...
                                  }
                 }
        };