#!/usr/bin/perl

use strict;
use warnings;
use open ':utf8';
use Encode 'decode_utf8';

my $CHGLINE = decode_utf8(join(" ", @ARGV));
open O, ">testout";

format O =
  * ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$CHGLINE
 ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$CHGLINE
.

write O;
close O;