Select Code to Download

for (;;) {
  if (@ready = $select->can_read(60)) {
...
    $log->error("No new messages in the last 60 seconds");
  }
}

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/