Select Code to Download

Select or download this
```
$ perl -e '%x = { a => 1, b => 2 }'
$
```

$ perl -e 'use warnings; %x = { a => 1, b => 2 }'
Name "main::x" used only once: possible typo at -e line 1.
Reference found where even-sized list expected at -e line 1.
$

Select or download this

$ perl -e 'use strict; %x = { a => 1, b => 2 }'
Global symbol "%x" requires explicit package name (did you forget to d
+eclare "my %x"?) at -e line 1.
Execution of -e aborted due to compilation errors.
$

Select or download this
```
use strict;
use warnings;
```

Select or download this

#!/usr/bin/env perl

...
        printf "%8s : No voice found\n", $language;
    }
}

Select or download this

  German : [3] Microsoft Hedda Desktop - German
Japanese : [4] Microsoft Haruka Desktop - Japanese
  French : No voice found
 English : [0] Microsoft Zira Desktop - English (United States)
 Chinese : [5] Microsoft Huihui Desktop - Chinese (Simplified)

Select or download this

...
    if (@available_voices) {
...
            @available_voices = grep $all_voices{$_}, @available_voice
+s;
        }
...

Select or download this

  German : [3] Microsoft Hedda Desktop - German
Japanese : [4] Microsoft Haruka Desktop - Japanese
  French : No voice found
 English : [1] Microsoft Hazel Desktop - English (Great Britain)
 Chinese : [5] Microsoft Huihui Desktop - Chinese (Simplified)