Select Code to Download

#!/usr/bin/perl

...
    print $fh "\n";                       
  }
}

Row: 
...
[AL] 
[<a href="Tall.asp?Tid=0&SBy=LastName+Asc"></a>]