my $old_stdout;
my( $fh, $fn );
sub redir_stdout
{
  open $old_stdout,">&STDOUT" or die "Couldn't open old_out to &STDOUT $!";
  ( $fh, $fn ) = tempfile();
  print "tempfile: $fn\n";
  open STDOUT, '>&=', $fh or die "Couldn't open STDOUT to tmpfile $fn: $!";
}

sub undir_stdout
{
  close STDOUT; 
  close $fh;
  open STDOUT, ">&=", $old_stdout or die "Couldn't reopen STDOUT to old_out: $!";

  open $fh, "<$fn" or die "Couldn't open temp file, $fn : $!";
  if(wantarray)
  {
    return <$fh>;
  }

  else
  {
    local $/;
    return <$fh>;
  }
}