Select Code to Download

for ($etime){
  my ($dd,$hh,$mm,$ss)=()
...
    $etime_secs= $ss+($mm*60)+($hh*60*60)+($dd*24*60*60);
  }
}

for ($etime){
  # see man ps etime looks like [[dd-]hh:]mm:ss
...
  $dd += 0;   # same as $hh :)
  $etime_secs= $ss+($mm*60)+($hh*60*60)+($dd*24*60*60);
}