#!/usr/bin/perl

use strict;
use warnings;

foreach my $i ( 1..3 ) {
    if ($i lt 3) {
        print "\nChecking $i - ", "\n";
        sleep 3;
        print "OK\n";
    }
    else {
        print "\nChecking $i - ", "\n";
        sleep 3;
        print "Not OK\n\n";
    }
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

foreach my $i ( 1..3 ) {
    if ($i lt 3) {
        print "\nChecking $i - " and
        sleep 3 and
        print "OK";
    }
    else {
        print "\nChecking $i - " and
        sleep 3 and
        print "Not OK\n";
    }
}