Select Code to Download

#!/usr/bin/perl
wantarray
...
wantarray
        ? qw( ciao a tutti )
        : defined wantarray && "howdy!";

wantarray undefined!

#!/usr/bin/perl
use strict;
...
print "\nThird: scalar context\n";
my $c = do '/tmp/prova1.pl';
print "scalar \$c = $c\n";

First: list context
wantarray!
...
Third: scalar context
wantarray defined but false
scalar $c = howdy!