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

say "1..1";
sub foo {
    my $foo = "ok 1";
    return $foo;
}
say foo();