#!/usr/bin/perl --
use utf8;
binmode STDOUT, ':encoding(UTF-8)';
binmode $DB::OUT, ':encoding(UTF-8)' if $DB::OUT;
our $junk = "\x{5ff}\x{5ff} \x{25c4} \x{2663} \x{2665} \x{2663} \x{25ba} \x{5ff}\x{5ff}";
$junk .= "$junk\n";
print $junk;