#!/usr/bin/perl -w

binmode STDOUT, ":encoding(utf16)";

while (<>) {
    print;
}