Select Code to Download

#!/usr/bin/perl
use strict;
...
   print {*STDERR} $msg, '? ', ($flag ? 'yes' : 'no'), "\n";
   return;
}

ref $fh yields IO::Scalar
$fh->can("opened")? yes
...
$fh->can("seek")? yes
$fh->seek(0, 0)? yes
$fh is tied? no