sub paste {
    my @fh = @_;
    return sub {
        chomp( my @line = map { scalar(<$_>) } @fh );
        return join ' ', @line;
    }
}