#!/usr/bin/perl -w
$min = shift;    # assigns 1st param (12121) to $min
$max = shift;    # assigns 2nd param (131313) to $max
while (<>){      # consumes each line in turn and processes it below
	chomp;       # removes the trailing newline (\n)
	# '$_' is the line just read; also the default, so if you omit it, its assumed 
	# next line splits $_ on whitespace and loads each el into an array named A
	@A = split(/\s+/, $_);      
	if ($A[4] < $min) {     # if $A[4] is too small...
		print "ERR: too small ($A[4]):\t[$A[8]]\n";  # print an error
	} elsif ($A[4] > $max) { # if it's too big...
		print "ERR: too big ($A[4]):\t[$A[8]]\n";    # print an error
	} else {
		print "INFO: just right:\t[$A[8]]\n";        # it's just right
		print "$_\n\n";                                # so print the whole line
	}
}
