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

######################################### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### ##### #### exit; #### ##### #### #########################################