use strict;
use warnings;
my $x = "abcdefg";
print length $x, "\n";
{
  use bytes;
  print length $x, "\n";
}
open my $fh, ">:encoding(ucs-2)", "out.txt" or die $!;
print $fh $x;
close $fh;
print +(stat "out.txt")[7], "\n"; #print size of file in bytes
__END__
7
7
14

##</code><code>##

use Encode qw/encode/;
my $x = "abcdefg";
print length(encode("ucs-2", $x)), "\n";