Select Code to Download

$ perl -MDevel::Size=total_size -E'
   $a[5]="5678";
...
'
40
44

$ perl -MDevel::Size=total_size -E'
   $a[5]="5678";
...
'
40
36

$ perl -MDevel::Peek -MDevel::Size=total_size -E'
   $a[5]="5678";
...
'
40
16