add example using magic formula from perlrun manpage