Perl

Send a POP3 NOOP Command

Demonstrates the Chilkat MailMan.Pop3Noop method, which sends a POP3 NOOP command to the server. NOOP does nothing except elicit a positive response, which is useful for keeping a session alive or verifying the connection is still responsive. This example begins a POP3 session and sends a NOOP.

Background: NOOP ("no operation") is a standard keep-alive across many internet protocols. Servers often drop idle connections after a timeout; sending a periodic NOOP resets that timer so a long-running session stays open. It also serves as a cheap "are you still there?" probe — a successful reply confirms the socket and the authenticated session are still healthy.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the MailMan.Pop3Noop method, which sends a POP3 NOOP command to the server.
# NOOP does nothing except elicit a positive response, which is useful for keeping a
# session alive or verifying the connection is still responsive.

my $mailman = Chilkat2::MailMan->new;

# Configure the POP3 server connection.
$mailman->MailHost('pop.example.com');
$mailman->MailPort(995);
$mailman->PopSsl(1);
$mailman->PopUsername('user@example.com');
$mailman->PopPassword('myPassword');

# Begin a POP3 session.

my $success = $mailman->Pop3BeginSession();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

# Send a NOOP to keep the session alive.
$success = $mailman->Pop3Noop();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

print "POP3 NOOP succeeded.\n";