#!/usr/bin/env perl -l

use strict;
use warnings;

my %opt = @ARGV;

print qq{Option $_ = }, $opt{$_} for sort keys %opt;

print qq{-z option detected: $opt{-z}} if exists $opt{-z};

##</code><code>##

$ pm_in_params.pl -i infile -o outfile -s statfile
Option -i = infile
Option -o = outfile
Option -s = statfile

$ pm_in_params.pl -i infile -o outfile -s statfile -z zzzzzzzz
Option -i = infile
Option -o = outfile
Option -s = statfile
Option -z = zzzzzzzz
-z option detected: zzzzzzzz