use Foo "bar"; bar(); # yes
bar(); baz() if $qux; # no 
bar(); END { warn "qux" } # yes