else { print $mech->content } #### LWP will support https URLs if the Crypt::SSLeay module is installed. More information at . #### s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)