Select Code to Download

foreach $filename (@curdirlist) {
#    print "$filename\n";  #sane
...
    ($startloc = @-) && ($alphaloc = $startloc + 4); }
    print "$startloc  ";
}