The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

sub four()
{
    return 4;
}

sub five()
{
    four + 1
}
sub six()
{
    five + 1
}

print six, "\n";