#!/usr/bin/perl -w

my $max_number='';		#initialize a variable that keeps the maximum number
my $current_number='';  	#variable that will keep the number of each line for comparison

while (defined ($current_number=<STDIN>))
{
	chomp ($current_number);						
	if($current_number > $max_number)				
	{
		$max_number = $current_number;			#compare each time the number we have in the line with the max number	
	}
}

print "The maximum number of all in your file is: ".$max_number."\n";


##</code><code>##

Argument "" isn't numeric in numeric gt (>) at myscript.pl line 9, <STDIN> line 1.