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