for i in *txt; do platon -c $i; done

##</code><code>##

for my $infile (@ARGV){
   next unless -e $infile;
   system("platon -c $infile"); 
}

##</code><code>##

$ perl batch.pl *.txt