sub is_FH_a_wrapped_scalar {
    my $FH = shift;
    return grep { $_ eq "scalar} } PerlIO::get_layers($FH);
}