Select Code to Download

use warnings;
use strict;
...
1..2
ok 1 - warns when more than one name returned
ok 2 - no warnings

sub warns (&) {
    my $sub = shift;
...
>
<World at - line 8.
>