Hi

To do so, you would either have to write to STDOUT and to a text file in your sample1.pl OR write a variation of the tee program. Something like:

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

  print $text;
  print $FH $text;
}

print_out "hi there\n";
[download]