Select Code to Download

use strict;
open (LST, "c:\\list.lst")||die "$^E : $!\n";
...
    print "\n************************\n";
}
close (LST);

sort{$a <=>comp <=> $b} #this is wron but it looks like something I ha
+ve seen