Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
     $t->addCol($file, "PCS Filename") || die "Can not add Column ";
     print $t->csv || die "Can not write output";
}

Select or download this

#!/usr/bin/perl -w

...
     $t->addCol($file, "PCS Filename") || die "Can not add Column ";
     print $t->csv || die "Can not write output";
}