use bytes;
my $len = length $var;