Timer di Perl

Ini aku buat, soale kemarin bingung mencari fungsi timer di perl, di perl ada fungsi timer yang di namakan sleep ( ); tapi waktu aku jalanin kurang bekerja dengan baik, jadi terpaksa deh di akal-akalin he.. he.. he..

#!/usr/sbin/perl --

#Asumsi disini sudah banyak script perl...

print "L4dy\n";

#Timer Untuk Perl...
#------------------------------my $now = time;
$now+=5;
while ( $now > time ) {}
#------------------------------
print "J0h4n";
#Asumsi disini sudah banyak script perl...


.."..Blogging : Programing.."..