my $io = io('http://example.org')->tie;
while (<$io>) {
  # do something
}