duelafn said: You might want to change the extraction line so that your code still works for programs over 100MB.

my ($size)   = $vmsize =~ /VmSize:\s+(.*)$/;
[download]

Good point, I looked at it with a hex editor, and it seems that it should be a tab

  (my $vmsize) = grep {/VmSize/} @size;
   my (undef,$size) = split "\t",$vmsize;
[download]