Select Code to Download

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