Select Code to Download

while (<F1>)
{
...
        $high_number = $number if $number > $high_number;
    }
}

use strict;
use warnings;