Select Code to Download

  use IO::Select ;
  
...
    print "Read:<$buffer>" ;
  }

  my $timeout = 5 ;
  for(;;) {
...
   };
   if ($@ !~ /DIE_ALARM/s) { die $@ }
 }