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");