use FindBin        ();
use File::Basename ();

sub RedirectOutputToFiles {
  my $scriptName = File::Basename::basename($0);
  my $stdoutFile = "$FindBin::Bin/$scriptName.stdout";
  my $stderrFile = "$FindBin::Bin/$scriptName.stderr";

  open (STDOUT, ">", $stdoutFile)
    or die "Error: couldn't redirect STDOUT: '$stdoutFile': $!";

  open (STDERR, ">", $stderrFile)
    or die "Error: couldn't redirect STDERR: '$stderrFile': $!";

} # RedirectOutputToFiles