#!/usr/bin/perl

use Encode; 

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

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