Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use 5.018;
use strict;
...
my @v;
(@v = keys %foo) == 1 or warn "Got more than one: " . @v . "\n";
print "V:@v\n";

Select or download this
```
Got more than one: 3
V:was do eggs
```