$/ = "something special, perhaps";
  my $selector = new SuperSelect;
  $selector->add_reader($fh1, sub {print "fh1: @_\n"});
  $selector->add_reader($fh2, sub {print "fh2: @_\n"});

  $selector->wait(3600); # 1 hour