#!/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!";