Select Code to Download

use strict;
use warnings;
use File::Temp qw(tempfile);
...
    system("tvtime-command DISPLAY_MESSAGE \'Wait several minutes whil
+e EPG updates...\'");
    sleep 1;
}

#parent process
while (! waitpid($pid, WNOHANG)) {
     my $status = system("ps aux | grep \[tv\]time");
...
         sleep 1;
        }
}