print "Msg to original STDOUT\n";
{
   local *STDOUT;
   open(STDOUT, ">my_file") ;
   select STDOUT; $| = 1; 
   print "msg to Redirected STDOUT\n";
}
print "Msg to original STDOUT again\n";