#!/usr/bin/perl

use Encode; 

binmode STDIN, ":utf8";
binmode STDOUT, ":ucs-2be";

while(<>){
  print encode( "ucs-2be", $_ );
}

##</code><code>##

#!/usr/bin/perl

use Encode; 

binmode STDOUT, ":utf8";
binmode STDIN, ":ucs-2be";

while(<>){
  print decode( "ucs-2be", $_ );
}