I took a slightly different path. Maybe you were looking for something like this?

#!/usr/bin/perl

use strict;
use warnings;

binmode STDERR, ':encoding(utf8)'; 
print STDERR "\x{01b1}\n";

binmode STDOUT, ':encoding(utf8)';
print "\x{01b1}", "\n";
warn "\x{01b1}", "\n";
die "\x{01b1}", "\n";
[download]