#!/usr/bin/perl
wantarray
        ? print("wantarray!\n")
        : defined wantarray
                ? print("wantarray defined but false\n")
                : print("wantarray undefined!\n");
wantarray
        ? qw( ciao a tutti )
        : defined wantarray && "howdy!";

##</code><code>##

wantarray undefined!

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
$" = ", ";

print "First: list context\n";
my @a = do '/tmp/prova1.pl';
print "array \@a = (@a)\n\n";

print "Second: void context\n";
do '/tmp/prova1.pl';

print "\nThird: scalar context\n";
my $c = do '/tmp/prova1.pl';
print "scalar \$c = $c\n";

##</code><code>##

First: list context
wantarray!
array @a = (ciao, a, tutti)

Second: void context
wantarray undefined!


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