open (INF,"sortby_list.dat");
@file=<INF>;
close(INF);

##</code><code>##

@file = (a..z);

##</code><code>##

  if (-e $fitem_pathname) {
    if (-d $fitem_pathname) {
      unless ($_ eq "..") {
        unless ($_ eq ".") {
          $count++;
        }
      }
    }
  }

##</code><code>##

  if (-e $fitem_pathname  && -d $fitem_pathname) {
      unless ($_ eq ".." || $_ eq ".") {
          $count++;
        }
      }


##</code><code>##


if($_ =~ m/^[$FORM{'sortby'}]/

##</code><code>##


if($_ =~ m/^$FORM{'sortby'}/i)