$timeout=1000;
open (FP, "scriptC.pl |") or die 'Error';
while (<FP>) {
    $output .= $_;
    sleep 30;
    $timeout -=30;
    print 'Waiting for execution to finish'. $timeout;
}