NMAKE : fatal error U1077: 'C:\PROGRA~2\MIB055~1\VC98\bin\nmake.exe' : return c 
de '0x2' 
Stop. 
  KMX/Win32-GUI-1.11.tar.gz 
  C:\PROGRA~2\MIB055~1\VC98\bin\nmake.exe -- NOT OK 
Running make test 
  Can't test without successful make 
Running make install 
  Make had returned bad status, install seems impossible 
Running Build for A/AB/ABERNDT/Win32-Snarl/win32-snarl-1.01.tar.gz 
  Has already been unwrapped into directory C:\Perl64\cpan\build\Win32-Snarl-1T 
6rc 
 
  CPAN.pm: Building A/AB/ABERNDT/Win32-Snarl/win32-snarl-1.01.tar.gz 
 
Warning: Prerequisite 'Win32::GUI => 1.03' for 'ABERNDT/Win32-Snarl/win32-snarl 
1.01.tar.gz' failed when processing 'KMX/Win32-GUI-1.11.tar.gz' with 'make => N 
'. Continuing, but chances to succeed are limited. 
Building Win32-Snarl 
  ABERNDT/Win32-Snarl/win32-snarl-1.01.tar.gz 
  C:\Perl64\bin\perl.exe ./Build -- OK 
Running Build test 
t\Win32-Snarl.t .. 
#   Failed test 'use Win32::Snarl;' 
t\Win32-Snarl.t .. 1/6 #   at t\Win32-Snarl.t line 9. 
#     Tried to use 'Win32::Snarl'. 
#     Error:  Can't locate Win32/GUI.pm in @INC (@INC contains: C:\Perl64\cpan\ 
uild\Win32-Snarl-1Tk6rc\blib\lib C:\Perl64\cpan\build\Win32-Snarl-1Tk6rc\blib\a 
ch C:/Perl64/site/lib C:/Perl64/lib .) at C:\Perl64\cpan\build\Win32-Snarl-1Tk6 
c\blib\lib/Win32/Snarl.pm line 11. 
# BEGIN failed--compilation aborted at C:\Perl64\cpan\build\Win32-Snarl-1Tk6rc\ 
lib\lib/Win32/Snarl.pm line 11. 
# Compilation failed in require at (eval 4) line 2. 
# BEGIN failed--compilation aborted at (eval 4) line 2. 
Undefined subroutine &Win32::Snarl::GetVersionEx called at t\Win32-Snarl.t line 
16. 
# Looks like you planned 6 tests but ran 1. 
# Looks like you failed 1 test of 1 run. 
# Looks like your test exited with 255 just after 1. 
t\Win32-Snarl.t .. Dubious, test returned 255 (wstat 65280, 0xff00) 
Failed 6/6 subtests 
 
Test Summary Report 
------------------- 
t\Win32-Snarl.t (Wstat: 65280 Tests: 1 Failed: 1) 
  Failed test:  1 
  Non-zero exit status: 255 
  Parse errors: Bad plan.  You planned 6 tests but ran 1. 
Files=1, Tests=1,  1 wallclock secs ( 0.00 usr +  0.08 sys =  0.08 CPU) 
Result: FAIL 
Failed 1/1 test programs. 1/1 subtests failed. 
  ABERNDT/Win32-Snarl/win32-snarl-1.01.tar.gz 
one dependency not OK (Win32::GUI); additionally test harness failed 
  C:\Perl64\bin\perl.exe ./Build test -- NOT OK 
//hint// to see the cpan-testers results for installing this module, try: 
  reports ABERNDT/Win32-Snarl/win32-snarl-1.01.tar.gz 
Running Build install 
  make test had returned bad status, won't install without force 
 
C:\Users\HP>

#!C:/Perl64/bin/perl.exe 
 
use strict; 
use warnings; 
use Mail::IMAPClient; 
use IO::Socket::SSL; 
 
# Connect to the IMAP server via SSL 
my $socket = IO::Socket::SSL->new( 
   PeerAddr => 'imap.gmail.com', 
   PeerPort => 993, 
  ) 
  or die "socket(): $@"; 
 
# Build up a client attached to the SSL socket. 
# Login is automatic as usual when we provide User and Password 
my $client = Mail::IMAPClient->new( 
   Socket   => $socket, 
   User     => 'user@gmail.com', 
   Password => 'userpassword', 
  ) 
  or die "new(): $@"; 
 
# Do something just to see that it's all ok 
print "I'm authenticated\n" if $client->IsAuthenticated(); 
my @folders = $client->folders(); 
print join("\n* ", 'Folders:', @folders), "\n"; 
 
# Say bye 
$client->logout();

C:\Apache\cgi-bin>perl imap.pl 
******************************************************************* 
 Using the default of SSL_verify_mode of SSL_VERIFY_NONE for client 
 is deprecated! Please set SSL_verify_mode to SSL_VERIFY_PEER 
 together with SSL_ca_file|SSL_ca_path for verification. 
 If you really don't want to verify the certificate and keep the 
 connection open to Man-In-The-Middle attacks please set 
 SSL_verify_mode explicitly to SSL_VERIFY_NONE in your application. 
******************************************************************* 
  at imap.pl line 9. 
I'm authenticated 
Folders: 
* INBOX 
* Personal 
* Receipts 
* Travel 
* Work 
* [Gmail] 
* [Gmail]/All Mail 
* [Gmail]/Drafts 
* [Gmail]/Important 
* [Gmail]/Sent Mail 
* [Gmail]/Spam 
* [Gmail]/Starred 
* [Gmail]/Trash 
 
C:\Apache\cgi-bin>

 
#!C:/Perl64/bin/perl.exe 
 
use Audio::Beep; 
 
use strict; 
use warnings; 
use Mail::IMAPClient; 
use IO::Socket::SSL; 
 
my $msg_subject; 
my $beeper; 
my $music; 
 
# Connect to the IMAP server via SSL 
my $socket = IO::Socket::SSL->new( 
   PeerAddr => 'imap.gmail.com', 
   PeerPort => 993, 
SSL_verify_mode => SSL_VERIFY_NONE 
  ) 
  or die "socket(): $@"; 
 
# Build up a client attached to the SSL socket. 
# Login is automatic as usual when we provide User and Password 
my $client = Mail::IMAPClient->new( 
   Socket   => $socket, 
   User     => 'user@gmail.com', 
   Password => 'passwd', 
  ) 
  or die "new(): $@"; 
 
# Do something just to see that it's all ok 
print "I'm authenticated\n" if $client->IsAuthenticated(); 
my @folders = $client->folders(); 
print join("\n* ", 'Folders:', @folders), "\n"; 
 
#$client->select("INBOX"); 
 
#my @messages = $client->messages(); 
#print "There are " . scalar @messages . " messages waiting.\n"; 
 
#$client->Ignoresizeerrors(1); 
#$client->select("INBOX") or die "Could not select: $@\n"; 
#my $string = $client->message_string(1) or die "could not message: $@\n"; 
#print $string; 
# Say bye 
#$client->logout(); 
 
my $msgcount = $client->message_count("INBOX"); 
print "Total messages in INBOX are $msgcount\n" ; 
my $unseen = $client->unseen_count("INBOX"); 
print "Unread messages are $unseen"; 
 
my $prev = $unseen; 
while (1) { 
$unseen = $client->unseen_count ("INBOX"); 
if($unseen > $prev) { 
$beeper = Audio::Beep->new(); 
 
                # lilypond subset syntax accepted 
                # relative notation is the default  
                # (now correctly implemented) 
     $music = "g' f bes' c8 f d4 c8 f d4 bes c g f2"; 
                # Pictures at an Exhibition by Modest Mussorgsky 
 
    $beeper->play( $music );;} 
$prev = $unseen; 
}