#!/usr/bin/perl -w
use strict;
my $start_time = time;
# All your other code goes here
my $end_time = time;
my $elapsed_time = $end_time - $start_time;
sleep 30 - $elapsed_time unless ($elapsed_time >= 30);