Help for this page

Select Code to Download


  1. or download this
        open (FILE, "$record") or die 'can\'t open record page: $!';
        my @record =<FILE>;
    ...
        
        my $record1 = join "<br>", @record1;
    
  2. or download this
    @record = reverse @record;
        
    ...
        $count += 1;
        }
    print "@record1";