Select Code to Download

#!/usr/bin/perl
use Env; ## This allows the script to read environment variables
...

$server->quit();
exit();

Printed results:
$ test.pl
...
DELETE RC for msg 2: 1
EXPUNGE RC: 
$?: 0 $! Illegal seek

syslog contents:
Sep 15 10:34:08 somebox test.pl[17786]: [ID xxx local7.alert] BEFORE E
+XPUNGE: 2 message(s) in the inbox
Sep 15 10:34:08 somebox test.pl[17786]: [ID xxx local7.alert] AFTER EX
+PUNGE: 2 message(s) in the inbox