Sleep Function [ Perl ]

#!/usr/bin/perl
$num = 5;
while($num--){
    sleep(1);
}

Ref: http://www.tutorialspoint.com/perl/perl_sleep.htm