Select Code to Download

    open (FILE, "$record") or die 'can\'t open record page: $!';
    my @record =<FILE>;
...
    
    my $record1 = join "<br>", @record1;

@record = reverse @record;
    
...
    $count += 1;
    }
print "@record1";