#!/usr/local/bin/perl

# Usage: process file
# This script automates some tasks when a file is ftp'd to a PC to convert
# a column and needs to be reprocessed for the workstation directories.

foreach $file (@ARGV) {
  system("lower $file");  
  $file =~ tr/A-Z/a-z/;
  system("tab2com $file");
  system("data2tex $file");
  system("\\rm $file");
}