use LWP::Simple;
use Time::HiRes qw( time sleep );
while (1) {
    my $time = time;
    print "Time is $time\n";
    # the get will generally take > 1 sec but comment out to demo time
+ loop
    # get('http://foo.com');
    sleep 0.001 while time < $time + 1;
}
__DATA__
Time is 1038429003.031
Time is 1038429004.031
Time is 1038429005.031
Time is 1038429006.031
[download]

Alternatively without Time::HiRes or any accuracy....

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

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print