exec('perl','-e','$|=1; while(1) { sleep(5); print q:The time is now :,time,qq:\n:; };')
  or die "exec error: $!\n";