use Devel::Size qw(size total_size);

  my $size = size("A string");

  my @foo = (1, 2, 3, 4, 5);
  my $other_size = size(\@foo);

  my $foo = {a => [1, 2, 3],
      b => {a => [1, 3, 4]}
         };
  my $total_size = total_size($foo);

This module figures out the real size of Perl variables in bytes, as accurately as possible.

To build and install this module, you need:

     Perl
     a working C or C++ compiler
     a make (or namke on Windows) utility

Follow these steps:

On Linux, Cygwin, or Unix:

    perl Makefile.PL
    make
    make test
    sudo make install

On Windows:

    perl Makefile.PL
    nmake
    nmake test
    nmake install

Please report bugs to:

    http://rt.cpan.org/NoAuth/Bugs.html?Dist=Devel-Size

Copyright (C) 2005 Dan Sugalski, Copyright (C) 2007-2008 Tels

This module is free software; you can redistribute it and/or modify it under the same terms as Perl v5.8.8.