Select Code to Download

sub transform {
   my ($data,$log_fh) = @_;
...
   print LOG_FH "Processing $bar.\n";
   ...
}

sub transform {
   my $data = shift;
...
   print $log_fh "Processing $bar.\n";
   ...
}

our $log_fh;
sub transform {
...
    transform( "data", $log_fh );
}
main();