#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;
use IO::Tee;

my @fhs = map { open my $fh, ">", "file-$_" or die $!; $fh } 1..10;
my $tee = new IO::Tee(@fhs);

say $tee "AppleFritter!";