# x.pl
use v5.28; use Data::HexDump;
use Encode qw(encode decode);
my $a0 = $ARGV[0];
my $a0d = decode( q(UTF-8), $a0 );
say HexDump($a0);
say HexDump($a0d);
open my $fh, q(>), $a0;
open my $fhd, q(>), $a0d;
sleep 99;

# shell
aa=$(perl -CSDA -we 'print 1 . chr(0xb1) . chr(0x155) . 2')
perl -w x.pl "$aa" &
ls -rt
xxd /proc/`pidof perl`/cmdline