sub my_tee {
  my $handle = shift;
  print $handle @_;
  print @_;
}

open my $fh, '>>', 'output.txt'
  or die "$!";

my_tee $fh => ("Greetings!\n");
my_tee $fh => ("Hello", " ", "World");