getopt('oDI');    # -o, -D & -I take arg.  Sets $opt_* as a side effect.
    getopt('oDI', \%opts);    # -o, -D & -I take arg.  Values in %opts

##</code><code>##

#!perl
use Getopt::Std;
my %opts = ();
getopt('z', \%opts);
for (keys %opts) {
	print '$opts{', $_, '} = "', $opts{$_}, "\"\n";
}

##</code><code>##


C:\myperl\temp>perl temp.pl -z
$opts{z} = ""

C:\myperl\temp>perl temp.pl -y
$opts{y} = "1"

C:\myperl\temp>perl temp.pl -y -z
$opts{y} = "1"
$opts{z} = ""

C:\myperl\temp>perl temp.pl -z -y
$opts{z} = "-y"

C:\myperl\temp>temp -z -z
$opts{z} = "-z"