http://www.perlmonks.org?node_id=786956


in reply to BEGIN { } block

I've used it to calculate epsilon when my module gets loaded.