c:\@Work\Perl>perl -wMstrict -le
"use constant SIZEOF_S => length pack 'x[S]';
 print SIZEOF_S;
 ;;
 use constant SIZEOF_WHATEVER => length pack 'x[NSc]';
 print SIZEOF_WHATEVER;
"
2
7