Select Code to Download

#!/usr/bin/perl -w -T

...
# do your processing here!
    print "  $line\n";
}

# chmod +x /usr/local/bin/sinet.pl

secshsms    6100/tcp   # DSW Handler for SECS-II/GEM HSMS traffic
secshsms    6100/udp   # DSW

# DSW add-on for SECS-II over HSMS
secshsms    stream    tcp    nowait    nobody    /usr/local/bin/sinet.
+pl secshsms

# ps -ax | grep inetd
  563  ??  Is      0:00.01 /usr/sbin/inetd -wW -C 60
# kill -1 563

#!/usr/bin/perl

...
}
exit;