# This is cat.pl
$|=1;
while(<>) {
  print;
}
chr(0x1a) if $^O eq 'MSWin32';