#!/usr/bin/env perl

use strict;
use warnings;

use lib '../lib';
use WWW::FreeProxyListsCom;

my $prox = WWW::FreeProxyListsCom->new( debug => 1 );

use Data::Dumper;
my $ref = $prox->get_list( type => 'non_anonymous' );

print "Got a list of " . @$ref . " proxies\nFiltering...\n";

$ref = $prox->filter( port => qr/(80){1,2}/ );

print "Filtered list contains: " . @$ref . " proxies\n"
        . join "\n", map( "$_->{ip}:$_->{port}", @$ref), '';