#! perl
use warnings;
use strict;
use 5.010;

say 'equal' if context('1') eq context('2');

sub context
{
    my $c = (defined wantarray) ?
                    (wantarray  ? 'list' : 'scalar')
                                         : 'void';
    say '(', shift, '): is in ', $c, ' context'; 
    return 42;
}

##</code><code>##

15:56 >perl 457_SoPW.pl
(1): is in scalar context
(2): is in scalar context
equal

15:56 >