package WWW::FreeProxy::PublicProxyServers;

use LWP::Simple;

sub fetch {
	my ($self, $callback) = @_;
	for (1..6) {	       
		my $content = get("http://www.publicproxyservers.com/page$_.html") or return [];
		&$callback("$1:$2") while $content =~ m~<td[^>]*?>(\d+\.\d+\.\d+\.\d+)</td>.*?<td[^>]*?>(\d+)</td>~igs;
	}
}

1;

=head1 COPYRIGHT & LICENSE

Copyright 2008 Alexey Alexandrov, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut
