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

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

print "$cust\n";