┌─[tadzik@yavin4]─[~]
└─[%]─> cat podbug.pl
#= a nice subroutine
sub foo {
    sub bar {
    }
}
┌─[tadzik@yavin4]─[~]
└─[%]─> perl6 --doc podbug.pl
sub foo()
a nice subroutine

sub bar()
a nice subroutine