Select Code to Download

sub readbackwards_utf8 { # returns an iterator
    my ($fn, $window) = @_;
...
        return $buf;
    }
}

use open qw/:std :utf8/;
use Test::More;
...
}

done_testing;