open(STDIN,"<&".fileno($c)) or die;
  print STDERR "STDIN: ",<STDIN>;
  print STDERR "\$c: ",<$c>;