Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
use WWW::Mechanize;
...

$VAR1 = "HTTP/1.0 200 OK\nServer: Perl Dancer 1.3118\nContent-Length: 
+6\nContent-Type: text/html; charset=UTF-8\nClient-Date: Mon, 21 Jul 2
+014 02:56:39 GMT\nClient-Peer: 127.0.0.1:3000\nClient-Response-Num: 1
+\nX-Powered-By: Perl Dancer 1.3118\n\n\320\224\320\224\320\242\n";

#!/usr/bin/perl --
use utf8;
...
Terminating on signal SIGINT(2)