Repeating the loop

[Arun]

Hi,
     i am new to perl so i uat wanted some help.
i wanted the followinf loop to be repeated for every 30 seconds.

$send_data = strftime( "::DATA::123456789101112,%d.%m.%Y,%H:%M:%S,
13.0076367,77.5489267,0,933.4,AirTel,31,0 \n", gmtime);

DATA: {while(1)
        {
        $handle-> send($send_data);
        last DATA;
        }
        }


so how do i do it.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/