[PERL]Delay invio stringa a server (Socket::INET)

[borexino]

Buongiorno a tutti,
sto scrivendo un piccolo programma per uso radioamatoriale che deve inviare dei dati ad un server. Ho la necessità che frà un invio ed un altro (della stessa stringa) ci sia uno sleep di 30 secondi.
quello che ho fatto è quanto segue:

#!/usr/bin/perl -w
use strict;



use IO::Socket;



my $sock = new IO::Socket::INET (

PeerHost => 'italys.aprs2.net',

PeerPort => '14580',

Proto => 'tcp'

);



die "Non riesco a contattare il server APRS: $!\n" unless $sock;



# my $new_sock = $sock->accept();



print $sock "user USERNAME pass XXXXX\r\n";
print $sock "USERNAME>APRS:!4021.04N/01319.94ErTEST PROGRAMMA PERL\r\n";


while(<$sock>) {

print $_;

}
close($sock);


praticamente dopo l'autenticazione dovrei far ripetere ogni 30 secondi questa linea:
print $sock "USERNAME>APRS:!4021.04N/01319.94ErTEST PROGRAMMA PERL\r\n";

Il loop dove lo creo? e come lo imposto lo sleep?
Grazie mille