http://www.perlmonks.org?node_id=30307


⭐ in reply to Is it possible to write to 2 files, eg. print LOGFILE,TEMP 'hello'?

multiprint("hello\n", LOGFILE, TEMP);

sub multiprint
 {
   my $text = shift;

   for my $fh (@_)
    {
      print $fh $text;
    }
 }

[download]

In Section Seekers of Perl Wisdom