Select Code to Download

for file in $outdir/*postpaid*
do
    sort -t '&' -k 2 < $file > $file.ok
done

opendir(INDIR, $outdir) or die "Can't opendir $outdir: $!\n";
while (my $infile = readdir(INDIR)) {
...
    close $outfile_fh;
}
closedir(INDIR);