$ perl /tmp/getopt.pl 
unset
$ perl /tmp/getopt.pl -x
true
$ perl /tmp/getopt.pl -x foo
foo