#!/usr/bin/perl

use LWP::Simple;

$file = '/home/ruten/Desktop/cyanideandhappiness.html';
open(INFO, ">>$file");

for ($current_comic = 251; $current_comic <= 1044; $current_comic++) {
	$page = (get "http://www.explosm.net/comics/" . $current_comic . "/");

	$search = "[IMG]";
	$search_end = "[/IMG]";
	if ( $page =~ m/\[IMG\](.+)\[\/IMG\]/ ) {
		$url = $1;
		$url =~ s/<br \/>//g;
		print INFO "<a href='" . $url . "'>" . $url . "</a><br />\n";
		print "Success on #" . $current_comic . " [" . $url . "]\n";
	} else {
		print "Failed on #" . $current_comic . "\n";
	}
}

close(INFO);