Help for this page
#!/usr/bin/perl -wlaF, ... @G = split ',', <FH>; print join ',', $F[0], $G[0], $F[2]; }
chmod 740 run.pl ./run.pl <FileA