my $input = ...create input source object... my $output = ...create output formatter object... while (my $data = $input->next) { # do something to $data $output->print($data); }