Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl>perl -wMstrict -MO=Deparse,-p -le
"my %opts = (c => 1);
...
(my(%opts) = ('c', 1));
(my $C = (exists($opts{'c'}) ? '!' : ''));
-e syntax OK