/* Check periodically for new mail */
do while show('P','IRIS') & show('L','bsdsocket.library')
   address IRIS
   GETMAIL
   SENDMAIL IMMED
   address command
   WAIT 3 MINS
end
say 'Poll.irx ending - TCP/IP and/or Iris is not available.'