Select Code to Download

sub write {
    @_ == 3 or croak 'Usage: $sftp->write($fh, $data)';
...
            or carp("Can only write bytes to a socket");
    }
    ...

use strict;
use warnings;
...
my $from_off = encode($enc, $text);
my $from_on  = encode($enc, $text);
print("bytes are ", ($from_off eq $from_on ? 'same' : 'diff'), "\n");

bytes are same

use strict;
use warnings;
...
utf8::downgrade( my $from_off = $bytes_off );
utf8::downgrade( my $from_on  = $bytes_on );
print("bytes are ", ($from_off eq $from_on ? 'same' : 'diff'), "\n");

bytes are same