Select Code to Download

@ServicesOnMachine = `/sbin/chkconfig --list | awk '{print \$1}'`;

NetworkManager
acpid
...
xfs
ypbind
yum-updatesd

@ServiceCheckList = ("spray", "echo", "daytime", "discard", "chargen",
+ "ttdb", "ypbind", "ypserv", "yppasswdd", "ypxfrd", "tooltalk", "rsta
+td", "comsat", "talk", "uucp", "finger", "netstat", "systat", "rusers
+", "walld", "rexd", "rje", "netbios", "lpd", "http", "gopher", "tcpmu
+x", "news", "nntp", "snmp", "mail", "smtp", "pop2", "pop3", "sendmail
+", "httpd");

foreach (@ServiceCheckList eq @ServicesOnMachine)
{
     print $_;
}