1 2 3 4 5 6 7 8 9 10 | #!c:\Perl\bin\perl.exe use Mail::POP3Client; $pop = new Mail::POP3Client( USER => '', PASSWORD => '', HOST => '', PORT => 110, AUTH_MODE => 'PASS', TIMEOUT => 10); print "В вашем почтовом ящике ",$pop->Count()," сообщений.\n" |