Repeating the loop

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.
.