sub print_out {
  my $text = shift;
  my $FH = shift;

  print $text;
  print $FH $text;
}

print_out "hi there\n";