#!/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};