CBE.pm 
package CBE;
use warnings;
use strict;
   
my $pop3 = 'pop3.server';
my $login = 'email@adress';
my $pass = 'password';
my $number = 'phone_number';

sub check {   

my $last;
    
if( -e 'num' ){
        open(NUM, "num"); 
        $last = int(<NUM>);
} else {
        open(NUM, ">>num");
        $last = '0';
}   
    
close NUM;

 my $pop = Net::POP3->new($pop3) || die("Can't connect");
        my $now = $pop->login($login, $pass) || die("Can't connect");

if ($last < $now){
        my $msg = $pop->get($now);
        my $auth;
        for my $line (@$msg){
                if( $line =~ /(<$number@(.*)>)$/ ){
                        $auth = '1';
                }
        }
         while( my $line = shift @$msg ) {
            last while $line =~ /^Status:/;
         }
         chomp(@$msg);

        my $string = @$msg[1];

        if(@$msg[1] =~ /=(.*)=/){
        my @arr=split(/=(.*)=/,$1);

if (system(`$arr[0]`)){
                     &log_save($arr[0],'yes');
                    } else {
                     &log_save($arr[0],'no');
                    }
        }
        }
open(WRI, ">num");
print WRI $now;
close WRI;

$pop->quit;
sleep 5;

}

sub log_save {

 my $log = shift;
 my $status = shift;
 open(LOG, '>>log.txt');

 print LOG "Command: $log\n";
 print LOG "Date: ".localtime()."\n";
 print LOG "Success: $status\n";
 print LOG "-----------\n";

 close LOG;

}

[download]
cbe.pl 
#!/usr/bin/perl
use warnings;
use strict;

use Net::POP3;
use CBE;

while(1){
CBE::check();
}

[download]

In reply to CBE - Controle by E-mail vr 1.1 by w3b

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.