#!/usr/local/bin/perl -w
use strict;
my($target, $cust, $cotime) = @ARGV;

if ($ARGV[1] eq '-SMC') {
    $cust = "SMC";
}
elsif ($ARGV[1] eq '-FET') {
    $cust = 'FET';
}
elsif ($ARGV[1] eq '-China') {
    $cust = 'China';
}
elsif ($ARGV[1] eq '-SBM') {
    $cust = 'SBM';
}