use IO::Handle ();  # For "flush" method.

open(STDOUT_BIN, ">&STDOUT")
   or die("Unable to dup STDOUT: $!\n");
binmode(STDOUT_BIN);

print("crlf\n");

# Flush STDOUT when switching to STDOUT_BIN.
STDOUT->flush();

print STDOUT_BIN ("raw\n");

# Flush STDOUT_BIN when switching to STDOUT.
STDOUT_BIN->flush();     

print("crlf\n");