sub inl () {"inline"} sub inl () { my $lex;} print inl; #### sub inl () { my $lex;} sub inl () {"inline"} print inl;