Select Code to Download

use strict;
use warnings;
...
print start_form,
        p,submit('Refresh'),
        end_html;

# Iterate through my hosts and get their status
push @{ $p->ping($_) ? \@uphosts : \@downhosts }, $_ for @hosts;
$p->close();