my $tmp;
is(read($fh, $tmp, 1), 1, "basic read");
seek($fh, 1, SEEK_SET);
$content = "\xA1\xA2\xA3";
utf8::upgrade($content);
is(read($fh, $tmp, 1), 1, "read from post-open upgraded scalar");
my $tmp;
is(read($fh, $tmp, 1), 1, "basic read");
seek($fh, 1, SEEK_SET);
$content = "\xA1\xA2\xA3";
utf8::upgrade($content);
is(read($fh, $tmp, 1), 1, "read from post-open upgraded scalar");