#!/usr/bin/perl -wT use CGI::Carp qw( fatalsToBrowser ); print "Content-type: text/html\n\n"; print "Test Page"; $| = 1; use warnings; use strict; eval( "use Net::POP3;" ); die "Module Configuration Error: $@" if $@; my $time = scalar localtime; my $pop3 = "xxx.xxx.xxx"; my $login = "xxx\@xxx.xxx"; my $pass = "xxxxxxxx"; my $pop = Net::POP3->new($pop3); #my $smtp = Net::SMTP->new($ssmtp); $res = $pop->login($login, $pass); if ($res eq "undef"){ print "Couldn't connect $!\n"; } else { print "On $time e-mail status inbox: $res post \n"; } my $i =0; print("Deleting $res mails ...\n"); for($i = 0; $i<$res; $i++) { # $pop->delete($i); } $pop->quit(); print "";