#!/usr/bin/perl -w
use Devel::Size qw(size total_size);
my $packed1=pack("b24",'111100001111000011110000');
my $packed2=pack("b24",'111100000000000011110000');
my $raw='111100001111000011110000';
my $xor=($packed1^$packed2);
my $five=5;



printf "packed1 %d, %d\n",length($packed1),size($packed1);
printf "packed2 %d, %d\n",length($packed2),size($packed2);
printf "raw     %d, %d\n",length($raw),size($raw);
printf "xor     %d, %d\n",length($xor),size($xor);
printf "five    %d, %d\n",length($five),size($five);