Select Code to Download

#!/usr/bin/perl
use strict;
...
binmode STDERR, ":encoding(koi8-r)";
binmode STDOUT, ":encoding(koi8-r)";
mysub();

print STDERR $caller[1];

print STDOUT $caller[1];

binmode STDERR, ':raw';