print ("\n-----------------------------\n\n");
my $cmd ="getmail --getmaildir='~/Maildir/'";
my @arr;
eval{
        @arr = `$cmd`;
};
 
if($@){
     print ("error");
}

my $error = "";

print Dumper \@arr;
foreach(@arr){
   if($_ =~ /.*error(.*)/){
     $error = $1;
   }
}

print ("\n\n\n------------------------\nERROR: $error \n\n\n");

print ("\$\@: $@\n\n\n"); 
print ("\$!: $!\n\n\n");
print ("\$?: $?\n\n\n");

------------------------

[b]getmailrc: error resolving name ((-2, 'Name or service not known'))[/b]
$VAR1 = [
          'getmail version 4.7.8',
          'Copyright (C) 1998-2007 Charles Cazabon.  Licensed under the GNU GPL version 2.',
          'SimpleIMAPSSLRetriever:fax-in-dev@imap0.sipgate.net:993:',
          '  0 messages (0 bytes) retrieved, 0 skipped'
        ];
-------------------------
ERROR:  


$@: 


$!: 


$?: 0