#! perl -slw
use strict;
use Devel::Size qw(size);

$a=pack 'b*',0;
print "Size of scalar is " .size($a) . " bytes\n";