Help for this page

Select Code to Download

Select or download this

use Devel::Size qw(total_size);

...
$ perl test.pl
Unpacked: 100800288
Packed:   28800128