Select Code to Download

sub test {
   print(defined(wantarray)?1:0, " ");
...
test();       # 0 0
$a = test();  # 1 0
@a = test();  # 1 1

sub function {
   my $rv = "Hello World";
...

my $greet = function();
print("[$greet]\n");     # [Hello World]