#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTML::SimpleLinkExtor;

$ua = new LWP::UserAgent;

while(1) {
    $request = new HTTP::Request('GET', 'http://www.celebdaily.com/');
    $response = $ua->request($request);

    if ($response->is_success) {
      print "succ\n";
        last;

    } else {
      print "fail\n";
        ;;
    }
}

$e = HTML::SimpleLinkExtor->new();
$e->parse($response->content);
@links = $e->href;

chdir("/mnt/depot/babes");

foreach $link (@links) {
    if($link =~ /[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]/) {
        system("wget -c \"http://www.celebdaily.com/$link\"");
    }
}