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