Select Code to Download

sub fred { 
    ...
...
    elsif( wantarray )          { ...list context }
    else                        { ...scalar context }
    }

fred();               # void
my $fred    = fred(); # scalar
...
my @fred    = fred;   # list
print fred();         # list, print is a list operator
print scalar fred();  # scalar