package ImplicitTopic;
use 5.010_00;
use strict;

sub foo {
    while (my $_ = <>) {
        say;
    }
}
1;