nyamakawa2

#!/usr/bin/perl -w

# Original : https://stackoverflow.com/a/38790442 

use strict;
use Getopt::Std;
my ($tot,$mtot)=(0,0);
my %procs;

my %opts;