use File::Basename;
open local(*OUT), "> $dir/pA.cat" or die $!;