3 use Encode qw( encode_utf8 );
7 description => 'Increase DBRev for 21.06',
10 my ($dbh, $out) = @$args{qw(dbh out)};
12 say $out encode_utf8 '🎵 Run, rabbit run. 🎶';
13 say $out encode_utf8 'Dig that hole, forget the sun,';
14 say $out encode_utf8 'And when at last the work is done';
15 say $out encode_utf8 "Don't sit down it's time to dig another one.";