{
   open(my $fh, '>', 'deleteme.tmp')
      or die("Unable to create work file: $!\n");
   binmode($fh);
   print $fh ("abc\r\n\cZ\r\ndef\r\n");
}

{
   open(my $fh, '<', 'deleteme.tmp')
      or die("Unable to read work file: $!\n");
   # Not binmode.
   print <$fh>;
}

##</code><code>##


{
   print("Press abc<ENTER><^Z><ENTER>\n");
   # Not binmode.
   print <STDIN>;
}

{
   print("Press abc<ENTER><^Z><ENTER>def<ENTER>\n");
   binmode(STDIN);
   print scalar(<STDIN>), scalar(<STDIN>), scalar(<STDIN>);
}