while (!eof(IN) ) {
$_ = <IN>;
$DEBUG = 1 if ($_ =~ m/^DEBUG/)

##</code><code>##

while (<IN>) {
    $DEBUG = 1 if /^DEBUG/;

##</code><code>##

use Scalar::Util qw( looks_like_number );
...
        if (looks_like_number($_) && ($_ > 0)) {

##</code><code>##

if ($timings{$item}{STATUS} != '2') {

##</code><code>##

if ($timings{$item}{STATUS} ne '2') {

##</code><code>##

if ($timings{$item}{STATUS} != 2) {

##</code><code>##

for (;;) {

    ...

    if ($COMPLETE) {
        show_status();
        print "finished\n";
        last;
    }
}

close $log or die "Cannot close file '$log_file': $!";