Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    print start_form,
            p,submit('Refresh'),
            end_html;
    
  2. or download this
    # Iterate through my hosts and get their status
    push @{ $p->ping($_) ? \@uphosts : \@downhosts }, $_ for @hosts;
    $p->close();