use bytes ();
   ...
   $sizeof=bytes::length($message);