#!/usr/bin/perl

foreach my $i ( 1..3 ) {
    print "\nChecking something - ";
    sleep 3;  
    print "OK";
}

print "\n";