Select Code to Download

  # FILE1 & FILE2 is a filehandle opened elsewhere. $read is a list of
  # filehandles we are interested in reading
...
                                    # (NOTE: $read=0 is very wrong)
  vec($read, fileno(FILE1), 1) = 1; # Set the appropriate bit
  vec($read, fileno(FILE2), 1) = 1; # And for another file...

  my $nfound = select($read, undef, undef, undef);

  # Does FILE1 have data waiting?
  if (vec($read, fileno(FILE1), 1))
    {
      # ... do stuff ...
    }

#
# Simple multiplexing package
...

# ==
return 1;

#
# TCP listener socket
...

# ==
return 1;

package sillyTimer;

...
  {
    Multiplex::despatchevents()
  }