{
	open (local *STDOUT,'>:utf8',\(my $b="\x{FEFF}"));
	printing_stuff
        return $b;
}