BEGIN { POPService = "/inet/tcp/0/emailhost/pop3" RS = ORS = "\r\n" print "user name" |& POPService POPService |& getline print "pass password" |& POPService POPService |& getline print "retr 1" |& POPService POPService |& getline if ($1 != "+OK") exit print "quit" |& POPService RS = "\r\n\\.\r\n" POPService |& getline print $0 close(POPService) }