Help for this page

Select Code to Download

Select or download this

#---------------------------------------------------------------------
+-------#
#we want to die if a system isn't explicitly supported
...
  grep /$^O/, @Supported 
    or die "$^O isn't supported by Sys:IP yet.\n";
}

Select or download this

#!/usr/bin/perl -w
#-*-perl-*-
...
foreach ( @ips ) {
  print $_ , "\n";
}