use strict;
use warnings;
sub foo { 
        if (wantarray()) {
                print "Want!\n";
        } else {
                print "Don't want!\n";
        }
}
my $bar = foo();
my @baz = foo();
[download]