#!perl

use strict;
use warnings;

my $endtime = time + 30;
while (1) {
    if (time > $endtime) {
	print "30 seconds have passed\n";
	exit;
    }
    sleep 1;
}