Select Code to Download

use strict;
use Devel::Size qw(total_size);
...
Devel::Size        = 1.00 Gb
tasklist PID 37288 = 2.104.612 K

use strict;
use warnings;
...
tasklist PID 19660 = 4.201.748 K