#!/usr/bin/perl -w

use Mail::POP3Client;
use MIME::Base64;

    my $login = 'vasyapupkin';
    my $password = 'AssWord';
    my $mailserver = 'nwgsm.ru'; 

    print "Deleting mail from " . $mailserver . "; debug off.\n";

    my $pop = new Mail::POP3Client( USER     => $login,
                                  PASSWORD => $password,
                                  HOST     => $mailserver, 
				  DEBUG    => 0, ## 1,
				  TIMEOUT  => 60);
															
    if ($pop->Count() == -1 ) 
    {
	print "Error connecting to server!\n" . $pop->State() . "\n" . $pop->Message() . "\n";
	 
	exit;
    } 
	 
    my $count = $pop->Count();
	 
    for( $i = 1; $i <= $count; $i++ )
    {
	$pop->Delete($i);
#	print "message = " . $pop->Message() . "<br>";
    }
    print "DeleteMail: " . $count . " msgs deleted.\n";
    $pop->Close();
    exit;