perl : batch image get for 4chan

#!/usr/bin/perl
#2012-0517-2030
use WWW::Mechanize;
sub bash {my @args = ( "bash", "-c", shift); system(@args);}

my $url = $ARGV[0];
my $prefix = "(.*)//images.4chan.org/(.*)/src/(.*)";

my $mech = WWW::Mechanize->new();
$mech->get( $url );
my @links = $mech->links();

foreach my $link (@links) {
        my $_ = $link->url();
        if ($_ =~ (m/$prefix/)) {
                s!//!http://!;
                if ($_ ne $last_url) {bash("wget -nc $_");}
                $last_url = $_;
}       }

>>1
bash("wget -nc $_");
use IO::Socket or die;