Help for this page
my %setting = map /^--(.*?)=(.*)$/, @ARGV;
my %file = map { $_ => /^([^=-]*)$/ ) } @ARGV; my %switch = map { $_ => /^--([^=]*)$/ } @ARGV;