$STDERR  = bless \*STDERR, 'IO::Handle' ;
  my $DATA = bless \*DATA,   'IO::Handle' ;