Help for this page
use strict; use warnings; ... Dump \%opt; print "\n"; }
-p -q $HASH1 = { ... -p $HASH1 = { p => 1 };
if (! exists $opt{s} and ! exists $opt{t}) {