my $end = time + 30;

while (time < $end) {
    ...
}