Select Code to Download

    use LWP::UserAgent;
    use HTTP::Request::Common qw(GET);

...
    } else {
        print $res->status_line . "\n";
    }

CREATE TABLE IF NOT EXISTS `ReadingGrabCache` (
  `grab_id` int(11) NOT NULL AUTO_INCREMENT,
  `url` varchar(255) CHARACTER SET latin1 NOT NULL,
...
  `all_images` longtext CHARACTER SET latin1,
  PRIMARY KEY (`grab_id`)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8 COLLATE=utf8_bin AUTO_INCREMENT=
+141 ;