My pop3 sever does not support dele *.* to delete all the messages. I have to delete one by one. Also i am accessing the pop3 server using telnet.
How to delete all mails from the pop3 server using perl script
i am using script as below
print "USER $username \r\n";
print "PASS $password \r\n";
for ($j = 1 ; $j<10;$j++)
print "dele $j";
and executing it as
deletemails.pl | telnet <ip of pop3 server> 110
the output of the above script does not seem to redirect to the telnet client. Is there any other way?