$ perl -MO=Deparse,-p -e 'sub a {} sub b {} a; b;'
sub a { }
sub b { }
a();
b();
$ perl -MO=Deparse,-p -e 'sub a {} sub b {} a  b;'
sub a { }
sub b { }
a(b());