Main Perl String
#!/usr/bin/perl -w

use strict;
use warnings;
use IPC::Cmd qw[can_run run run_forked];

my $timeout = 1;
my $erg;
my $cmd='/home/a2.pl';
while(1){
        if( scalar run( command => $cmd, verbose => 0, buffer => \$erg, timeout => $timeout )){
                print 'success:'.$erg."\n";
        }else{
                if(!$erg){
                        $erg='ERROR';
                }

                print 'timeout cmd:'.$cmd.' ergr='.$erg."\n";
        }
   sleep(5);
}
1;

/home/a2.pl
#!/usr/bin/perl
print 10000;
#print 'or some text.....';
1;