use LWP::Simple;
while (1) {
    get('http://foo.com');
    sleep 1;
}