Select Code to Download

use LWP::UserAgent;
$ua = new LWP::UserAgent;
...
if ($res->is_success) {
      print $res->content;
}

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print