Select Code to Download

 ...
 # $addr is the actual subnet, e.g. "192.168.1.0"
 ...
 my $output = qx{nmap -sP ${addr}/24};
 my @nodes= $output =~ /(?<=\s)c\w+\b/g;

 ... 
 print header('text/html');
 print h1('Local Network: '. $addr . '/24');
 print map "$_ appears to be up<br />", @hosts
 ...

 ...
 my ($exe, $cmd) = ('/usr/bin/rsh', 'ps -fl r -u username');
...
  ...
  ++$cnt
  ...