sub foo { return 1 };
$var = foo(); #$var is 1
sub bar {
    print "AAA";
    return 1;
    print "BBB"; #will never happen, for 'return' has
     # stopped this sub
}
$var = bar();