Select Code to Download

use strict;
use utf8;
...
warn q#warn: ϗblah頁#;
$SIG{__WARN__} = sub { print @_ };
warn q#warn: ϗblah頁#;