Select Code to Download

#! perl -slw
use strict;
...

 print $highest;
__END__

C:\test>217736
Comparing 3 with 2
...
Use of uninitialized value in numeric gt (>) at C:\test\217736.pl line
+ 9.
Setting $highest to 1
1